SSSSSSSSSSSS_ YYY YYY SSSSSSSSSSSS LLL 000000000 AAAAAAAAA 
SSSSSSSSSSSS_ YYY YYY SSSSSSSSSSSS LLL 000000000 AAAAAAAAA 
SSSSSSSSSSSS_ YYY YYY SSSSSSSSSSSS LLL 000000000 AAAAAAAAA 
SSS YYY YYY SSS LLL 000 000 AAA AAA 
SSS vYY YYY SSS LLL 000 000 AAA ABA 
SSS YYY YYY SSS LLL 000 000 AAA AMA 
SSS yyy yYY SSS LLL 000 000 AAA ABA 
SSS yyy yYY SSS LLL 000 000 AAA AAL 
SSS yyy yYY SSS LLL 000 000 AAA AAA 
SSSSSSSSS vYY SSSSSSSSS LLL 000 000 AAA AAA 
SSSSSSSSS vYY SSSSSSSSS LLL 000 000 AAA 
SSSSSSSSS vYY SSSSSSSSS LLL 000 000 AAA AAA 
SSS YYY SSS LLL 000 000 A 
SSS YYY SSS LLL 000 000 AAAAAAAAAAAAAAA 
SSS YYY SSS LLL 000 000 AAAAAAAAAAAAAAA 
SSS vYY SSS) LLL 000 000 AAA 
SSS YYY SSS LLL 000 000 AAA AAA 
SSS YYY SSS LLL 000 000 AAA AAA 
SSSSSSSSSSSS YYY SSSSSSSSSSSS LLELLLLLLLLLLLLL 000000000 AAA AAR 
SSSSSSSSSSSS vYY SSSSSSSSSSSS LELLLLLLLLLLLLL 000000000 AAA AAA 
SSSSSSSSSSSS yyy SSSSSSSSSSSS LLLLLLLLLLLLLLL 000000000 AAA AAA 
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ccccccce SSSSSSSS PPPPPPPP cccccccc AAAAAA LL LL 
ccccccce SSSSSSSS PPPPPPPP ceccccce AAAAAA LL LL 

cc S$ PP Pr tt AA AA LL LL 

cc S$ PP PP CC Ap AA LL LL 

cc SS PP PP tf AR AA LL LL 

cc SS PP PP CC AA AA LL LL 

cc SSSSSS PPPPPPPP cc AA AA LL LL 

cc SSSSSS PPPPPPPP cc AA AA LL LL 

cc SS PP cc AAAAAAAAAA LL LL 

CC SS PP CC AAAAAAAAAA LL LL 

cc SS PP cc AA AA LL LL eee 

cc SS PP cc AA AA LL LL eeee 
CCCCCCCC )§=SSSSSSSS PP CcCCCCCC AA AA LLELLLLLELE LLELLLLLLLL eeee 
CcCCCCCCC §=SSSSSSSS PP CCCCCCCC AA AA LLLLLLLLLLE LLLLLLLLLL eeee 

LL III! SSSSSSSS 

LL HII! SSSSSSSS 

LL II SS 

LL I] SS 

LL I] SS 

LL I] Ss 

LL I] SSSSSS 

LL Il SSSSSS 

LL I] SS 

LL I] SS 

LL I] SS 

LL Il SS 

LLLLLLLLLL III] SSSSSSSS 

LLLLLLLLLL HII] SSSSSSSS 
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Init CSP data structure 
ACKMSG Rev clean 
Dispatch on rece 


ved ACKMSG mess 
Receive commnad 


Deallocate CSD or mark it 
Send a request message to loc 
Special Kernel AST entry poin 

lL Kernel AST entry point’ 
Process CSD event 
Process CSD even 
Queue ACB to 


a or remote CSP’ 


>xzAm 
n” 


,if process is still around’ 


ent 

CSP$Q_ACB_IDLE’ 

from current (internal) queue’ 
Allocate a warm CORP for block transfer’ 
Fork and wait for up to 1 second’ 
Request illegal block-transfer' 
ACKMSG Block Transfer’ 

to deliver - deallocate CSD i 
Retry count has be exhausted, give u 
Queue Special Kernel AST to process’ 
Queue Normal Kernet AST to process’ 
Synchronous block transfer error’ 
Illegal user deallocation request’ 
Deallocate CSD, 
Bugcheck failure 
Not-yet-implemented error’ 
No-operation' 


return quotas’ 
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-TITLE CSPCA = Loadable Exec support for CSP 
-IDENT '‘V 4=000" ra 


PAARAAAADARASAALAASALALAL ESET EE EE ESE RESET TEESE ESE TESS TEST c cece cece ca? 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


FTWARE IS FURNISHED UNDER A LICENSE 
TH THE TERM F 


0 AND MAY BE USED AND COPIED 
ACCORDANCE WITH N THE 
P 


SUC ICENSE AND WITH 

ON OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
ERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


& ® 
* r 
2 & 
® ® 
® ® 
® ® 
ca ® 
® we 
® e 
® « 
* TRANSFERRED. « 
a ® 
ye * 
® a 
® ® 
® ® 
we * 
® ae 
® ® 
® ® 
* ® 


mer <a 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


CORPORATION. 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


REAR A AAA AAA AAA AEAAAAAAEREEEEEAEAEEEE 


SOOoOQOQoQooQoQoooQoooooQooooooooooo 
Oooo 


OOOO COSOOOoOOSooooooo 


+ 
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FACILITY: VMS 

ABSTRACT: Routine to call the Cluster Server Process on another node. 
AUTHOR: Paul R. Beck 

DATE: 21-MAR-1983 

REVISION HISTORY: 


V03-016 ADE0010 Alan D. Eldridge 18-Jul-1984 
Consmetic (comments only) cleanup. 


v03-015 ADE0008 Alan D. Eldridge 24-May-1984 
Add bug-checks to avoid pool corruption when deallocating 
packets. This has proven to be a problem area. 


V03-014 ADE0008 Alan D. Eldridge Ag yew 
Bias ACBSW_WAIT_CNT in EXESCSP_BRDCST while the routine is 
referencing the master ACB copy This is needed since the code 
is a referencer -- race conditions could otherwise cause the 
ACBSV_STS_WAIT flag 10 be cleared prematurely by DEALL_CSD. 


v03-013 ADE0007 Alan D. Eldridge 18-May-1984 
Clear parent petater in offspring ACB when deallocating 
offspring. It was being deallocated in the parent ACB. 


V03-011 ADE0006 Alan D. Eldridge 26-Apr-1984 
Erase ACBSV_WAIT at end of EXESCSP_BRDCST if ACBSW_WAIT_CNT 


SOOO SSCOSOOSOSOSOOSOSOSOSOSOSOSOSOSOSOOSCOOOOOOOOOOOSOOO 
OSOOooooooocoooa 


SSSsssssssssssssssssssssssss 


SOOO OOOOOSOOOOoOSOSoSSoSo 
Sooooooo OOOoOooooo 
sss Soooooooo 


NOUS AR @§ OOD NAUE WN 9 ONAN EWN | 9 OO NAME WN OC OONIG UE WI OOONOU Ewin 


OUI BPE PEE ES BWI Iononononononononony 2 2 


ooooo Oooo 


<- 


Bb = tenets fave smors for EP EHTS SUITE PNT Des OE OOP 


is zero. 


V03-010 ADE000S Alan D. Eldridge 12-Apr-1984 
Make default retry count 4 -- it was 30. 


V03-010 ADE0004 Alan D. rye" dge 22-Mar-1984 
Fix EXESCSP_COMMAND hand of CSP$_LOCAL request. 


V03-009 DWT0193 David WwW jel 15-MAR-1984 
Change interface to ACKMSG” block transfer. 


V03-008 ADE0003 Alan D. Eldridge 28-F eb-1984 
Add support for CSP$ _LOCAL cal rin EXESCSP_COMMAND. 


V03-007 ADE0002 mae - Eldridge 6-F eb-1984 
Move CSD ad to R2 in EXES §p _BRDCST Letere call to WAIT. 
Call schedu PL SYNCH. Chéck ACBSW_WAIT_CNT before 
clear ACB$V WAIT. 


v03-006 ADE0001 Alan D. Elde tdpe 9-Dec-1983 
Rewrite to use a... ACKMSG of the Connection Manager rather 
than DECnet. e module CSPALLOC into this one in order 
keep all ts uffering details local to one module. 
Add state table, etc. 


v03-005 JLV0309 Jake 5-0CT-1983 
Check status after Ab i ap te y EXESALLOC CSD. 


V03-004 JLV0305 soho Noy ~~? -1983 
Add error checkin EXES SP_CALL call in eXESCSP _BROCST. 
Call EXESDEANONPG si? nstead of EXESDEANONPAGED. 


v03-003 predest Paul a Beck 13-JUL-1983 21:33 
Fix bugs in broadcas 
Change ‘empty slot” test in main routine. 


v03-002 PRBO203 aul R. Beck 7-JUN-1983 22:53 
Fix non-PIC detintt ion’ of NETO: 
Add broadcast capability. 


V03-001 PRBO164 Paul R. Beck 22-APR-1983 14:28:31 
Add PSECT. 
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Future enhancements: 

1. Create a better bug-check code. INCONSTATE is temporary. 

2. Do a better job about image rundown. 

3. What happens if a user tries to “Y-Stop in ver tous places (especially 


after depleting the JIB quota and while in @ @ wait state allocating 
memory). 


Definitions 


F 
SMSGDEF 
UBTXDEF 


OOOO OOOOSOOOSOOSOOOOOOOSOOOOOOOOOOOOOOOOOOo 


SoOOoOoOoooSoooooooooooooosooSo 
Oe a a kk kk dd 


WWIWIAI WII AI NI I oononoNoPNONUN) 2 2 MB OQOOOOOO0O 
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SOOOCSOOOCOSOOSoOOSooOoOooOooooooooo 
COOOooooooooooooooooo 


sca = tense tet mwvort foe 8 “CHEE ING SIRES PRONE TP ay Oo 


Macro to setup up a routine dispatch table 


“MACRO SDSP_TABLE List ; Setup dispatch table 
MACRO Sdspent -Sds inx a 
dspiax-_$maxinx> Smaxinx = _$dspinx 
a tH + <&* $dspinxS 


. Long _SdSpact - _Stme 
.ENDM «= $ds spent 


_Stmp = 
“$maxinx = 6 
TIRP a,<LIST> 


$dspent a 
3 LENDR . 
090 _Stmp + <4 * $maxinx> + 4 
0 ~ENDM $sP7 TABLE 
ae 
4444 ; Macro to create and fill the event state table. 
00000006 09 tevsK STATES = 6 ; Number of columns in the table 
FFFFFFFF 0 CEVS_PAX = 1 : Init the number of rows 
00000000 8 CEVS_EX EXIT’. s : Define termination event 
00 -MACRO S$CEV event, i,f.x,k,a.s ; Create state table entries 
4 3; for the specified event 
00 CEV$_ MAX -EVT = CEVS_MAX_EVT + 1 ; Bump max event value 
090 CEV$_"event’ = CEVS_MAX_EVT : Define circuit event symbol 
50 SENT i,Ji ; Create table entry 
88 SENT To. 
0 SENT x, _x 
00 SENT k,_k 
BS SENT a,_a 
SENT $,_S 
B8 -ENDM = $CEV 
09 -MACRO SENT entry,def_sta ; Create state table entry 
Sent = ZLENGTH(entry)-1 


CEVSK_sta_. = CEVSK_sta'def_sta'; Define default next state 


IF IDN entry ? 3; 2? => bug 
-BYTE § VSK_sta_. Use current state 
; Action is bug-check 


sta_FEXTRACT(O,1,entry); Setup next state 
RRC tr, _S$ent,entryS ; Setup action routine index 


SOO 
2Ss 


-ENDM = SENT 


et ee ae ee ee ae ee a a a dd 
WOO OO 000009 69 6909 09 09 09 09 SINISE SSD DPD DPA AAD TTI BE 


AEN OOO NA NE WIN SO ODNAU EWN M$ QO ONAUE WN 0 OO NOAUE WO OONOUS 
ees 
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SYSLOA.SRCJCSPCALL.MAR; 1 


SRSP_CEV_TAB, LIST ; CSPMSGSK_RSP to CEV$_ mapping 


-MACRO Smake stant’ rsp, — 
‘, = ; fame, k rsp_'rsp’ 
yt@ cev$_' 
.ENDM indie entry 


$start =. 
«byte 0 Cespmsg$k_rsp_max+1] ; Init table 
send =. 


. IRP member ,<lList> : Fill table 
Smake_entry member 


-=_$end 
SRSP_CEV_TAB 
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00000018 


00000020 


00000020 


ODoOOOoOOooo 
Sooooo 


DOOSOSOOOSOOSOOSSOSOOOSOOSOSOOSOSOSOSOSOSOOOOOOOOOOOO 
WDBHOOOCOCOCOCOCOCOOCOCOOCOCOOCOOOOO 


COOCOCOSSCOCOCOCOOSOOCOCOSoSOoSoOooOooOooOoSo 


Conn sso 


PP OLOOOCOCOCOCSCOSOSOOCoOnN > 


AWWAIAAAIAIAIAI AWWA AI AIWIIAIOPINIPININPINININMININGOS 


ros 


oom 


é 
$ 
< 


> 


5 
é 
5 
; 
; 


SDEF 


1 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
5 
P) 
P] 
P] 
é 
6 
6 
6 
6 
6 
6 
6 
; 
? 
7 


; 
2 


ACB 
SDEFEND ACB 


Define CLSMSG format 


DEFINI CSPMSG 
EQULST CSPMSGSK_RSP_,,0,1,- 


<NOCSP>,= 
<RO>,= 


<RW 
<BADESD>.- 
<ASYNERR>, = 
<SYNERR>, = 
<MAX>, = 


= CLMHDRSK_BT_LENGTH 


SGSW_CL 
CSPMSGS$L_CS 
CSPMSGSK_LE 


SDEFEND CSPMSG ~ 
SDEFINI ACB 
.= <ACBSK_LENGTH + 15> & “C<15> 


ACBSL_USER_AST .BLKL 
ACBSL-USER-PID .BLKL 
ACBSW-WAIT-CNT .BLKW 


ACBSW_LAST_INX 
ACBSL~PARERT 


ACBSB_STA 
ACBSB~STS 


$VIELD ACB,0,- ; 
QUE 
“WAIT 
“BCST..M> - 
g<STSIPCNT, > ~ 
BLK 1 
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Define response codes 


Should never be used 
Illegal CSPMSGSK_RSP_xx code specified 
Remote CSP is busy, fry later 

No CSP process 

Read/on 

Read/wr 


Skip over ACKMSG header 


; Response code 

; Reserved -- used here for alignment 
; Client i.d. 

; Size of CSD 


; Define our own ACB extensions 


; Goto end of normal ACB honoring normal 
; pool granularty 


: OA copy of the AST and PID are needed in the ACB to prevent a block 
3 tranfer or a client from corrupting the ones in the CSD. 


User's AST address 

User's PI 

Used if ACBSV_STS_BCST is set 

-- # of outstanding broadcasts 

= Last CSB index used 

Used if ACBSV_STS_BCST is clear 

=-- Q means no parent 

CEVSK_STA_xxx code used by state table 
The following: 


Used to determine if return was async 
Set if ACB queue header is in use 

W t, don't return to user 

Set if part of broadcast 

Set if part of parent's WAIT_CNT 


Retries allowed (signed value) 
Max number of retries allowed 
Length of ACB we use 
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ro V04-00 Page 7 
SEP- SYSLOA.SRCJCSPCALL.MAR; 1 . (8) 
0000 -PSECT $$$200,NOPIC,EXE,QUAD,RD,WRT 
CSPSBEGIN:: 3 averemy address for reading 
; ; map while debugging 
: OWN STORAGE: 
; ACB states 
o Seaust CEVSK_STA_,,0,1,= 
0 <J> -; Initial: Initial state veen being allocated. 
-; On the ‘idle CSD’ queue. 
0 <F> -: Forking: Matting 1 sec. before requesting a ‘‘warm’’ CDRP. 
; -; On either some system fork or wait queue. 
0 <Xx> -; Transfer: | Undergoing block transfer. 
; °3 On the ‘active transfer’ queue. 
0 <k> =: KAST In use as a ‘special kernel’ AST block. 
; -; On the PCB AST queue. 
<A> -; AST: In use as a normal AST block. 
-; On the PCB AST queue. 
<$> -: System: The ACB is being processed by system CSP code. 


‘s Not on any queue. 


CEVSAL_ACTTAB: 
SDSP_TABLE - 


ACT_NOP> ; Nop action routine 


SOQOOoCOoOoooooooooo 
CSSOOOCSSOSOSSSOSSOSOSSOOSOSOOSOSOSOSOSSSOSOSSSSSSOSOSOSOSOSOOOSOSOSOSoO 


FOOOOOSOSOOCOSOOOOSO OOOO OOOO OOOSOSOOOOOOOOOOoOOoOO 


<Q, & = 
< 2, ACT_BUG> =; Bugchec 
< 4, ACT_NYI> -; Not yet implemented 
<10, ACT_INSQUE> =; Queue ACB to ‘idle’ queue, resignal the event 
<12, ACT_REMQUE> =; Remove ACB from current queue, resignal event 
<14, ACT_REQ_ILL_BT> -; User requested block transfer on via a C 
0 -; that is in the yrone state 
<16, ACT_REQ_DEAL> a Coor vp uested CSD deallocation before AST 
-; was deliver 
<18, ACT_GET_ CORP> -; Allocate warm CDRP 
€ Q. ACT-FORR_WAIT> -; Put ACB on FORK and WAIT queue 
<22, ACT BLOCR_XFER> =; Request ACKMSG block transfer 
<24, ACT_SYN_ERROR> -; Process synchronous block transfer error 
<26, ACT_QUE_KAST> =; Request Special Kernel AST 
<28, ACT_QUE_AST> =; Request Normal Kernel AST 
<32, ACT“DEACL> -; Deallocate CSD 
<34, ACT_GIVE_UP> -; notes count exceeded 
<36, ACT-NO_AST> -; No client AST to deliver 


PIPIPOPMONINININIDS <3 9 8 MH QOOOODODOOOO OOOO 00 OOO 000909000909 09 090909 SIN 


DOONAN E WIN OS OONOA UE WIN 9 OD NAN EWN @ O OO NAME WN O OD NOU EWR OOONOUS 


SOOoooooooooooooooooooooooooooooooooooo°ooo 


ect 


00000000 00000000 
00 
00 
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support for CSP 


CEVSAW_STA_TA@: 
$cev EXIT 
$CEV BUG 
SCEV REQ_BT 
SCEV REQ"DEALL 
$cev CDRP 
CEV FORK_DONE 
sceV GoT_CoRP 
CEV BT_BONE 
SCEV BT SYNERR 
SCEV CSP_BUSY 
SCEV No_CSP 
SCEV GIVE_UP 
SCEV KAST_DEL 
S$CEV AST_BEL 
S$CEV NO_AST 
SCEV INV_PID 


; Table to map CSPMSGSK_RSP codes to 


tEVSAB_RSP_CEV: 


$RSP_ CEV_TAB - 


> 


: Queue headers 


CSP$Q_ACB_IDLE: 
CSP$Q_ACB_XFER: 
CSP$B_RCVCSDCNT: 
CSP$B_INITED: 


i 12 


SSEp=158¢ 02:08:36 


I F 
? ? 
? ? 


-—— 
ror 


= 
oe 


—_ 
oo 


ee VON VD ee 


eID 8 ND OOM ew 
~m 
= 


Ww 
Fd 
TT et FE eee Oe lt 


eee Few 
eee 


BUG> 
CSP_BUSY> 
NO. CSP 
ONE> 
er DONE> 


Dowowow 
Cc ~ 
oy 


"DON —> 
BT” SYNERR> 
> 


»ALIGN QUAD 
-QUAD 0 

- QUAD 
-BYTE 
BYTE 


oo Oo 
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kK a 


? ? ? Exit state table processin 
? ? ? Bug detected . 


User block=-transfer request 
User's deallocate CSD request 


No CDORP's oval labig 
Bock from FORK_WAIT 
CORP was allocated 
Block-transfer done 
Synchronous transfer error 


—— 
ar 
we 
mo 


Nm © 
nN Oo 


; Remote CSP is busy 
No CSP on remote node 
ase count exceeded 


Se ee ee ee ee 
eee? 
Vee? Cee ee ie ee 


~N 
@ 


Special Kernel AST delivered 
Normal Kernel AST delivered 
No user AST to deliver 
; Event is “invalid PID" 


1a 
No 
Vevev 


“Vey P 
_" 
o 
VN 
Sete Ge Ge Ge Ge Ge & 


CEV$_ events 


t © supposed to be used 

SP is busy, try Later 
rocess 
; Read/on y completion 
; Re e completion 
Illegal CSD detected 
Asynchronous block transfer failure 
Pye block transfer failure 
; Not supposed to be used 


ACB/CSD's allocated 
which are otherwise 
ACB/CSD's with block ates in progress 


13.3 some process but 


Number of rcv'd CSD's being processed 
currently. 
Zero only if queue'’s not inited 


M12 
sca * Uendabe Beet sport for C07 © UCASE BEE HALTS BESET ay MO ab 


1 3 
} ; Define CSP specific receive CDRP fields and extensions 

90000060 1 CDRPSL_CSP_CSD = 0+ CORPSK. CM LENGTH =; Pointer to allocated CSD 

0000064 if CDRPSL_CSP_SP1 = +CDRPSL_CSP_CSD 3; Spare 
Vy Be SVIELD CORP,0,- ; Define CDRPSB_CLTSTS flags 
17 38 <CSP_ERROR, ,M>,- ; ACKMSG error experienced 
17 9 <CSP"QUEUED, ,M>,= ; CSD is queued to CSP process 
i 3 i <CSP_FLWCTL,,M>,= ; CSD accounted against flow control 
a 
snag ||! Pt -PSECT $$$200,EXE ; Go to code .PSECT 
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youc0bD “cSPSINGT ~ Init a3 data structures upo §-§ ety 90:39:58 SYSLOA.SRCJCSPCALL.MAR; 1 . (11) 
i $ ‘ »SBTTL "CSPSINIT = Init CSP data structures upon load’ 
1 407 : 
1 408 ; This code is called once when the CLUSTRLOA is loaded. It init's the 
1? é ; queue headers. 
17 41 : INPUTS: NONE 
172 413: OUTPUTS: RO S$S$_NORMAL 
17 414 ; 
17 415 :-- 
17 416 ESPSINIT:: ; Init.data structures 
25 FC AF EB \re 2 BLBS CSPS$B_INITED,100$ : If LBS, we've been here 
ae ‘13 ASSUME CSPS$Q_ACB_XFER €Q 8+CSP$Q_ACB_IDLE 
50 E7 AF 9E 0176 421 MOVAB CSP$Q_ACB_IDLE,RO ; Get queue header address 
0 60 E O17A & ¢ MOVAB (RO),TRO)F ; Setup ACB_IDLE queue header 
80 FC AO 9E o17D 4 MOVAB =4(RO), (RO)+ : 
0 60 9E 0181 424 MOVAB (RO), (RO)+ ; Setup ACB_XFER queue header 
80 FC AO 9E 1 4 4 3 MOVAB =-4(RO),(RO)+ ; 
00000088 8F (C1 61 8 427 ADDL3 §=6#CLUBSL_CSPFL,- ; Get queue header address 
50 00000000'GF 4 E 428 ales CLUB,RO : 
60 9E 0194 429 MOVAB (RO), (ROY ; Setup forward Link 
04 AO 60 9E B15 : ? MOVAB (RO),4(RO) 3; Setup backward Link 
D2 AF 01 90 0198 632 100$: MOVB #1,CSP$B_INITED : Say ‘initialized’ 
50 01 DO O19F 43 MOVL #SS$_NORMAL,RO ; Always successful 
0° OAs a3 seg 


=o 


a 
PPP PPP PPP PPP LPL ESSE Pw 
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Load 
LEAN 
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z 
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cv F pe routine’ 
"CLEAN_UP 


This routine is c 
ACK 
deallocate the CL 
the CDRP and the C 


"Brg ee 1 8he bo:0B156 LeksvGn.eaesesbeAce mars1 | P29e (1), vo 


- ACKMSG Rev cleanup routine’ 


“ by ACKMSG when a fatal virtual circuit error is 


s going to drop this thread on the floor and wili 
X structure. It is up to us to eventually deallocate 


R5 CDRP Pointer 

RG N/A 

R3 CSB (or zero) 

Re Pointer to message stored in CLUBTX 

R Pointer to extension space at end of CLUBTX (0 if none) 
RO Scratch 

2? 

-ENABL LSB 


#CDRPSM_CSP_ERROR, CDRP$B_CLTSTS(R5) : 
#CDRPSV_CSP_QUEUED, CDRPSB_CLTSTS(R5),100$ : If 
#CDRPSV_CSP_FLWCTL,CDRPSB_CLTSTS(RS),50$ 

CSP$B_RCVCSDCNT : Return flow credit 


; Cleanup upon error 
; Remember error 
; Internal iy tea 
‘ s 
ueued to CSP 
f BS, accounted 
; against flow control 


CORPSC_ CSP_CSD(R5) ,RO Get CS 

70$ If EQL. none 
CDRP$L_CSP_CSD(RS5) ; Clear ptr 

sexe EANONPAGED : Seal Loree CSD 
R ; Get CDRP 

Bee RP SDEANONPAGED : Deallocate CDRP 


Done 
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xec support for CSP 16-SEP-1984 00:30: AX/VMS Macro V04-00 Page 
H = Dispatch on received ACK i aet Y 90:38:56 EYSLOA. SRETESPCALL MARS 1 ° 
ore »SBTTL "CSPSDISPATCH = Dispatch on received ACKMSG message’ 
477 : 

£38 3; INPUTS: R5 Unitialized CDRP 

479 ; RG PDT address 

480 ; R3 CSB address 
481 ; R Message address 
? § 3 R1-RO Scratch 
: ¢ 3 OUTPUTS: R5-RO Garbage 
4 § bes 

4 -ENABL LSB 

eee CSPSDISPATCH:: ; CSP ACMKSG dispatcher 

490 : 

a3 ; Call CNXSPARTNER_IWIT_CSB to allocate new BTX (R2) and to init CDRP 
49 : 

494 ELRL R1 ; No BTX extension space needed 
495 MOVAB CLEAN_UP,R4 ; Address of cleanup routine 
496 BSBW CNX$PARTNER_INIT_CSB ; Prepare for block transfer 
497 3 = may return to our caller 
498 3 = may never return 

499 3 connection breaks 

209 CLRB CORP$B_CLTSTS(R5) ; Init client (us) status 

01 CLRL DRP$L_CSP_CSD(R5) 3; Init CSD pointer 

208 CLRL CORPSL_CSP_SP1(R5) 3; Init spare longword 

50 MOVL #CSP$_ABORT,R1 : Say "tno CSP process’’ 

pe MOVL G*CLUSGL_CLUB,RO 3; Get CL 

05 BEQL 20$ : If EQL, none 

506 TSTL LUBSL_CSPIPID(RO) ; CSP there ? 

507 BEQL : If EQL, no 

208 CMPB © #CSPSK_MAX_FLWCTL,CSPSB_RCVCSDCNT ; Within Limit? 

9 BGTRU : 1 GTRU yes, ae to continue 
510 10$: MOVL #CSP$_REJECT,R1 : ‘reject due to flow control” 
511 20$: BSBW CSP_COMMAND ; Issue command 
215 BRW 3; Done 
a7 30$: ; 

318 3 Flow control allows us to continue. Allocate a CSD to receive the 
16 : remote request. 

1 . 

18 OVL CSPMSG$L_CSD_SIZE(R2) ,CDRPSL_XCT_LEN(RS); Save CSD size 

0 ADDL3 #12,CDRPSL_XCT_LEN(RSS RI : Get total CSD size 

1 JSB BEERS ALOMONPAGED : Allocate CSD 

§ BLBC RO,10$ : If LBC no, treat as 

; flow control problem 

4 INCB CSP$B_RCVCSDCNT : Consume flow control 

i BISB #CORPSM_CSP_FLWCTL,CDRPSB_CLTSTS(RS) ; And mark the fact 

8 : setup the CDRP for the block transfer, and read the remote command 

4 : nto the allocated buffer. 

1 ; The call to CNX$BLOCK_READ returns to our caller immediately, and 
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CSPCA = Loadable Exec support for CSP -SEP-1984 00:30: AX/VMS Macro v04-00 2 1 
voec008 “CEPSDISPATCH'S Dispotch on ceceived ACK SoSEP=1986 Bo:OB:56 erSeGn.caeiesheare mans? P29° (18, 
1C § 5 returns in-line only after the transfer Completes. If an error is 
1C ; encountered and our error routine (CLEAN_UP) is called, then there 
1¢ 4 5 is no return in-line. 
1E 832 
+4 A ¢ 0 if 5 MOVL Re» GORDSL.CSP_CSD(RS) ; Setup pointer 
A 8 MOVZWL R1,8(R2) ; Setup size 
g es B 4 MOVL R5,(R2) 3; Setup CORP pointer 
. & 7 40 ADDL #12,R i; Go to CSD area 
5 1 9 EF A 541 EXTZV #VA$V_VPN,#VASS_VPN,R2,R1 : Get page number 
50 —00000000'GF 0 F 46 MOVL GORMGSGL _SPTBA E,RO i Get base of SPT 
40 AS 041 DE 6 4 MOVA (RO)CR1J,CORPSL_CNXSVAPTE(RS) ; Setup SVAPTE 
44 AS 52 reg 8F AB 44 BICW #*C<VASM_BYTE>,R2,CDRPSW_CNXBOFF (RS) 3; Setup BOFF 
4605 3C AS DO 02% 45 OVL  CDRPSL_XCT_LEN(RSS.CDRPSC_CNXBCNT(R5) : Setup BCNT 
AS 94 4 re CLRB CDORPS$B_CNXRMOD(RS) ; Setup for kernel mode 
AS 04 GA 2 CLRL CORPSL_RBOFF (R5) ; Start at begining of 
AS Be 40 48 CLRL CORPSL_LBOFF (RS) ; buffer on both sides 
FDAD' 30 8 : 28? BSBW CNX$BLOCK_READ ; Read remote request 
0253 551 ; 
025 55 8 We only get here if the READ completed successfully. Pickup the 
8 : 338 3 CSD, queue it, and wake the CSP erecess to come ona get it. 
025 22? : If the CSP is no longer there (SCHSWAKE fails), empty the CSD queue 
025 56 3 and send an approriate response. 
52 60 AS 0c C1 6 5 559 ADDL3 #12,CDRPS$L_CSP_CSD(R5),R 3; Get the CSD 
4B AS 02 88 osee 269 BISB #CDRPSM_CSP_QUEUED, CDRPSB_CLTSTS(RS5) 3; Say ‘‘queued to CSP*’ 
025C¢ $e INSQUE_CLUB: ; Queue CSD to CLUB 
025c 56 ; 
025C 564 3 
025C 20 3 Inputs: RO Scratch 
8 5C 66 3 R1 Scratch 
Set 567 3 CSD pointer 
025C 568 : R Scratch 
025C 569 ; R4 Scratch 
025C 570 : R5 CDRP pointer, if any 
Hae 
50 Q0000000'GF 00 5 378 MOVL G*CLUSGL_CLUB,RO : Get CLUB 
908c D0 62 0 6 7% INSQUE (R2),aCLOBS$L_CSPBL(RO) > Queue the CSD 
1 0090 D 6 75 MOVL UB$L_CSPIPTD(RO),R1 : Get CSP's IPID 
1 6D i BEQL $ ; If EQL, no CSP 
00000000 ' GF 18 6F 7 JSB G*“SCHSWAKE : Wake CSP 
19 50 € 5 4 BLBS RO,100$ ; If LBS, oka 
54 90000000 GF 0 0278 57 0s: MOVL G*€LUSGL_CLUB,R4 : Get the CL 
52 0088 D4 OF Oe7F 0 90$: REMQUE OCLUBSL _CSPFL{R4) ,R2 > Get the CSD 
7 D 4 1 BVS 1 3; If VS. none left 
51 § 0° § § MOVL #CSP$_ABORT,R1 ; Setup function code 
1 BSBB EXESCSP_COMAAND ; Process CS 
Fe 11 4 BRB 0 3; Loop 
05 D 5 100$: RSB 3; Done 
; § -DSABL LSB 
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CSPCA = Loadable Exec support for CSP 16-SEP-1984 00:30: AX/VMS Macro V04-00 Page 14 
vO0000 “EXESCSP. COMMAND oce ve commnad from C att 58:36 SYSLOA.SRCIJCSPCALL.MAR; 1 . (14) 
: $8 »SBTTL "EXESCSP_COMMAND Receive commnad from CSP process’ 
— 591: 
E 3 ; The CSP process calls this routine when it is done processing a CSD. The 
E 93; action is to conditionally send the CSD back to the requestor (if it contains 
E 94 ; new data) and to terminate the block transfer sequence with a response 
: of 3 «message. 
E 39 : This routine is also used to process the CSP$_LOCAL command. This command 
; 38 ; is used to pass locally generated requests to the CSP process. 
E é 0 : INPUTS: R4 Lient code (CSP$_LOCAL only) 
E 13: R (CSP$_LOCAL only) 
. ¢ § 3 Will sonegny be used for message build call back 
8E 603; R2 Address of CSD 
ge ope s Ri Function code: 
8 3 O06 : CSP$_ABORT = Abort the request 
eS 607 3 CSP$_BADCSD = Illegal CSD structure detected 
O28E 608 ; CSP$_DONE = Terminate the exchange 
O28E 609 ; CSP$_REJECT = Reject request due to flow control 
O28E 610; SP$_REPLY = Send CSD back to requestor 
8 H3 et) : CSP$_LOCAL = Send local CSD to CSP 
8 ge ei$ : RO Scratch 
O28E 615 : OUTPUTS: R2-RO Garbage 
estar 
6 ge 618 EXESCSP_COMMAND: : : Command from CSP 
38 6BB 8 3 619 PUSHR #*M<R3,R4,R5> 3; Save regs 
30 6 p DSBINT #IPL$_SYNCH ; Go to proper IPL 
06 10 $3 e § BSBB 50$ : Process the command 
9 624 ENBINT : Pestore IPL 
38 Ba 98 625 POPR #*M<R3,R4,R5> ; Restore regs 
5 2 ? § RSB 3; Done 
+. FF: 7 6 8 50$: CMPL R1,#CSP$_LOCAL : “‘Local’’ request ? 
4p 12 O2A1 6 BNEG § CSP_COMMAND_1 : 1f NEQ, no 
02A 630 3 
A 633 This is a “local request 
3 a ue 
a es : 
FEC8 CF 91 A 3 5 CPB #@CSPSK_MAX_FLWCTL,CSPSB_RCVCSDCNT ; Within Limit? 
1A 0208 6 6 BGTRU 7 : 14 GTRU, okay 
50 0294 3¢ AA 637 60$:  MOVZWL #SS$_REJECT,RO : Tell caller we failed 
1 AF 6 8 BRB j ; Take common exit 
3¢ o: 4639 70$: MOVZWL #12+CSDSK_LENGTH,R1 ; Setup block size 
, B6 49 JSB GrexE ALORONPAGED : Allocate the block 
é9 BC BiBc ——-RO. 608 : If LBC, failed 
ge BF tg PUSHR #*M<RO,R1,R2,R3,R4,R5> > Save regs 
C 02C1 644 movcS #0, (SPS ,#0,R4 (Re) : Zero the block 
BA 02C7 645 POPR #*M<RO,R1,R2,R3,R4,R5> : Restore regs 
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CSPCA’ = Loadable Exec support for CSP 16-SEP-1984 00:30: AX/VMS Macro V04-00 Page 15 C 
voe 000 “EXESCSP. COMMAND eceive commnad from C $28 Pa} 984 8:68:36 YSYSLOA. SRETESPCALL MAR: 1 . (14) v0 
4 e 

08 A : % 4 MOVZWL R1,8(R2) : ize, 
$8 athe - 4 ADDL 4g .Re ; ite clo ates “eg 
: C 4 SUBL #12,R 3; Reduce size 
08 A2 3 MOVW R1,8(R2) 3; Setup size 
OA A 65 F MOVB #OYNSC_CLU,CSDSB_TYPE(R2) : Setup type 
BA 48F 9 MOVB #O0YNSC7CSD cSD$8 SUBTYPE (R2) : Setup subtype 
OC A2 4 MOVW RS cs0 Su CODE (R2 3; Enter client code 
FEB? cr INCB = CSP$B_RCUCSDCNT : Consume flow control 
FF70 INSQUE_CLUB ; Queue the CSD 


wee NOTE eee 


For a variety of reasons (CSP not there yet, CSP was there when 
CSD was queued but exitted shortly thereafter), a return with 
the low bit set does not mean that the request actually made 
it. A return with the low bit clear does mean that it didn't. 


A more sophisticated mechanism for status reporting will need 
to be invented if this is not adequate for future users of 
this interface (currenly only the Quorum disk thread uses this). 
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66? 


66 
6 . 
59 01 00 670 MOVL #1,R0 3; Assume success (error at 
671 3 this point is untrustworthy) 
05 100$:  RSB ; Return status to caller 


CSP_COMMAND_1: ; Process CSP command 


3 If the CORP pointer is zero, then this is a ‘‘local’’ CSD being 
3 returned -- simply restore the flow control taken and deallocate 
3 the CSD. Otherwise, 


SANs 


AovL —-=12(R2) .RS 


DECB CSP$B_RCVCSDCNT 
MOVAB onecne? RO 
JMP G*EXE 


Get CDRP 
If NEQ, not local CSD 
Restore flow control 
Get block address 

DE ANON Deallocate the block 
5$: BICB #CORPSM_CSP_QUEUED,- CSP is done with CSD 


CORPSB_CLTSTS(R5) 
CSP_COMMAND : Process CSP command 
BBS #CDRPSV_CSP_ERROR,CDRPSB_CLTSTS(R5) ,900$ ; If BS, ACKMSG error 
3; occurred 
DISPATCH R1,- 
<CSP$_DONE 8 $>,- 
<CSP$~BADCSD, O0$>.~ 


<CSP$~ABOKT 
<CSPS"REJECT, 
<CSPS"REPLY, 
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Terminate the exchance 
Illegal CSD structure 

CSP is not there or is going 
Reject due to no flow control 
Send CSD back to requestor 
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CSPCA = Loadable Exec support for CSP S$ ~~ 4 AX/VMS Macro V04-00 Page 16 
vo6 000 "EXESCSP. COMMAND ce ve commnad from C "r8 1984 88: a8: i YSYSLOA. SRCICSPCALL.MAR; 1 ’ (14) 
19 ; BUG_CHECK INCONSTATE,FATAL 3 Unknown command 
yy § 100$: ; 
if ; Send CSD back to requestor before finishing up the block transfer 
1F , : 
FCDE' 3 F : &sBw  CNX$BLO KW RITE : Send CSD back to requestor 
. § D 71 MOVL gr senses ~RSP_RW,R1 3; Setup response code 
1 1 at) BRB 810$ 3; Finish up block transfer 
14 
hae 
, iS 
7 2 : 
51 86 dO 7 8 300$: MOVL #CSPMSGSK_RSP_BADCSD,R1 : Inidicate ‘bad csd' 
3 11 A 720 BRB 810$ 3: Finish up | block transfer 
51 8 dO C 721 3108: MOVL #CSPMSGSK_RSP_NOCSP,R1 : Indicate ‘no CSP process’ 
11 P: F ¢ BRB 810$ 3; Finish up block transfer 
51 0 dO 1 7235 320$: MOVL #CSP SnSESK ASP_BUSY RI ; Indicate ‘no flow credits’ 
0 11 3 4 : BRB 810$ ; Finish up block transfer 
? 4 § 800$: 3 
Dia ec 8 : Finish up the block transfer and deallocate she CDRP and CSD 
? f 4 3 Store the response code in low byte of CDRPSL_VAL2. 
51 o% 4 8 731 MOVL SCSPRSESK _RSP_RO,R1 : Setup response code 
0 aS 1 7 § 810$:  MOVB CDRPS$L~VAL2(R5) : Enter response code 
4C AS) = 49° AF 7 MOVAB BaRSp MSGBLD Yoke _MSGBLD(R5) : setup message build routine 
FCBB’ 42 0-734 BSBW ENXSPARTNER. RES : Finish up Bloch transter 
FESF 3g ? 4 5 9008: oseu CLEAN_UP1 3 gLeerap DRP, CSD, etc 
#8 7 $ ‘ 
49 , 8 RSP_MSGBLD: 
rt or : ACKMSG calls us here to build the response message. 
49 148 : INPUTS: RS CDRP ptr 
49 74 : R4 PDT ptr 
49 744 s R CSB ptr 
49 745 3 Re Message pointer 
rt oe 3 R Scratch 
49 748 : 
4 4 j ; 
is . 30 AS 38 rt 9 MOVB CORPSL yaLend (R5) wre RSP(R2) ; Copy CSP response 
A 6 BF 4E 7 MOVB  #<CLSMSGS$K_FAC egp° 1 CLSMSGSM_RESPMSG>, - : Copy code/flag 
3 7 : CLSMSGSB_ FRC ICTS¥CR3) 
09 A2 «94 7 CLRB CLSMSCSB FUME TROD ; Copy our fct 
05 § Pee RSB ; Done 
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Se cit vcenet to al ~$Fb=1 382 3:58:36 SYSLOA. SRE 


» SBTTL "EXESCSP_BRDCST = Send CSP request to all nodes’ 


all nodes curr mety n the cluster, and the eryesags is sent to the CSP in 
s he first; 4 Fg new nodes 
e 


no new 
nodes appear. Note that the local node is excluded from the list of 
recipients. 


Allocation and Deallocation of CSD's 


EXESALLOC_CSD should be used to allocate all CSD's. 
EXESDEALLOC_CSD should be used to deallocate all CSD's. 


Because some fields in the CSD need reinitializing, and since the call to 
EXESDEALLOC CSD is merely a request (the actual deallocation can only happen 
when the CSD ‘’runs down’), CSD‘'s should not be recycled by the clients, but 
rather a fresh one should be allocated for each use. 


The template CSD is allocated by the caller and this routine allocates the 
rest. However, the AST routine is responsible for deallocating each CSD; 
this is true of every CSD the AST routine is called with, including the 
template CSD. If there is no AST routine specified, then EXESCSP_BROCST will 
cause the CSD's used in the node dialogues to be gusqnet tees ty deal located. 
Note that the AST routine need not deallocate a CSD immediately -- it may 


4 queue for Later deallocation at normal process level. 

7 The caller is always responsible for Goat tocating the template CSD as Listed 
7 in the table below. Basically, if the call to this routine returns an error, 
7 or if no ASi is specified, then the caller should deallocate the CSD upon 

7 return. Otherwise, the AST routine should cause the CSD (in this case 

f CSDSL_CSID = -1) to be deallocated. 

7 

79 

ag, The CSDSL_USER_AST field 

79 

798 If this field is zero, then no AST's wili be delivered and control is not 
799 returned to the caller until the completion of the dialoque with the final 


node, 


If this field is non-zero, a control is returned to the user as soon as 
possible. An AST will be delivered after the completion of a dialogue with 
each node. The CSD address is the AST parameter. The AST routine should 
check the CSD$SL_CSID field to determine the remote node, and CSD$Q_INT_IOSB 
to determine the status. Also, it may read the response data described by 
CSD$L_RECVLEN and CSDSL_RECVOFF. 


If EXESCSP_BROCST returns with the low bit set in RO, then an AST will be 

delivered using the template CSD as a parameter (i.e, CSD$SL_CSID=-1) after 
completion of the dialogue with the final node, This allows the caller to 
know when the all of the EXESCSP_BRDCST operations are done. 
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- Bend CSP request to al eats 7 90:39:88 YOYSLOA.SREIESPCALL MAR: 1 . (8, 
If FAESCSP _BROCST returns with the low bit clear in RO, then no further AST 
will be queued to the process (those already in the queue will be delivered 


when process state allows). This means that the AST routine will not be 
called with the template CSD. 
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Danger of Disabling AST's 


Since the allocation of CSB's is charged against the user's BYTCNT quote 
and if the caller has specified an AST routine, then calling EXESCS _BRDCST 
coulg hang the process. This is because the quote is only returned when a 
CSD is deallocated, and that does not happen until the AST causes to happen. 
This also sagt ies that the CSD should be deallocated as soon as possible 
after the AST is delivered. 


AST's may be disabled if no AST routine is specified since in that case 

an AST does not have to be delivered before the quota is returned since the 
CSD is deallocated in the ‘Special Kernel’ AST routine that is delivered 
when the block transfer cone etes or fails. Note that ‘Special Kernel’ AST's 
are not disabled by the S$SETAST service. 


Waiting for Pool or Process Quota 


When system resources or process quotas are not available, EXESCSP_BRDCST 
will optional ly wait, depending on the setting of PCBS$V_SSRWAIT, in the 
current mode (kernel) at IPL 0. This will allow the process to be deleted 
(cleanup ane allocated pool is eventually done when the timer ticks or some 
block transfer completes), but will not allow the user to '“Y, STOP’’ the 
current running image. The later problem should be solved semeeey but it 
it is non-trivial since our caller is not the ‘‘user’’ but is some internal 
system service code which may have resources to clean up. 


NOTE: Calier's of this routine are therefore cautioned from making 
this eventual solution overly difficult by calling 
EXESCSP_BRDOCST from awkward places. 
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In summary 
RO's AST When to EXESDEALLOC_CSD When EXESCSP_BROCST 
low bit specified the template CSD returns to caller 
LBC no Upon return - no further When the error is 
AST's are delivered. encountered. 
LBC yes Upon return - no further When the error is 
AST's are delivered. encountered. 
LBS no Upon return When all dialogues 
6 have completed. 
? LBS yes By the AST reut ine or by As soon as possible. 
é some action it schedules. 
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carck . Losde ee ¢ ‘ 
“006 EXESCSP_BRD end CSP request to al 5=-SEP-1 SYSLOA. SRE ReIC CSPCALL.MAR; 1 (15) Vv 
CALLING SEQUENCE: JSB EXESCSPSBRDCST at IPL O 
INPUTS: R2 rah be of template CSD which is on try Mt led in 
(including user data) with the exception CSD$L_CSID. 


OUTPUTS: RO Status 
ALL other registers are preserved. 


PURO oe Se Se Oe Os Se Se Se Se Sete Se Se 
a 


XESCSP_BRDCST:: 
PUSHR 


MEW SO ONO UE OO ONO UT 


SSID PA AA AD MII SU 


“J 
DODWw > SNS M98 NNN ot 


COOO OOOO ODWRVOWOOWOOOo INI YNNNS ee 


x 
C 
OSFE 8F 8B #°M<R1,R2,R3,R4,R5,R6,R7.R8,RI> ; Save volatile reg's 
0216 3 BSBW § COMMON_SETUP : Check IPL, get ACB, ete 
7D E BLBC RD. 1908 : If LOC, err 
56 i) MOVL R2,R ; Save ptr to othe template csD 
59 4 0O MOVL R4,R : Save ACB pointe 
28 Ad = BS INCW ACBSW_WAIT_CNT(R9) ; Bias the wait count while 
; this routine is using the ACB 
50 028¢ BF 3C 8 MOVZWL #SS$_NOSUCHNODE ,RO 3; set up other escape code 
OF Ag 01 CE MNEGL #1,CSDS$L_CSID(R6) ark CSD as ‘‘template’’ 
2A AD 00000000' GF B0 MOVW 6*tLUSGW _MAXINDEX,ACBSW_LAST_ inxind} ; Init final CSB index 
38 10$: 3 
78 39 : Get the next CSB. If there is one, allocate a CSD and copy the 
7B «901 3 the template to it. 
re 808 ; 
66 10 0378 904 6sBB GET NEXT_CSB ; Get next CSB, if any 
48 50 4 7D =: 905 BLBC RO,7 : If LBC, we're done 
51 98 A6 C B06 MOVZWL cso su SEES IRG? R1 ; Get the allocation size 
00000435 ' GF 1 4 3 JSB SER SAL LOC. CSb : Get a new CSD for this node 
38 50 =CE . 443 BLBC : irrer if LBC (no recovery) 
52 oD D 910 PUSH R2 : Save its addres 
a: 2.2. a F 911 MOVC RT. (RG) » (R2) ; Fill it in from the template 
52 8ED0 3 aig POPL R2 3 pitta the CSD 
6 91 : 
ts ay 
218 : Make the CSP call to tranfer the CSD. 
96 «(91 3 
96 318 : 
5 cc ag 43 96 1 MOVAB ~ACBSK_CSPLNG(R2) ,R4 : Get ACB 
2c aa. 59—sCéO 9A 920 MOVL  R9,ACBSL_PARENT(R4) ; Remember paren 
Ag a 921 INCW ACéSU WATT CNT(R9) ; Account for this broadcast 
31 Aq 18 7] § BISB #ACBSM~STS_BCST!- : Mark it as part of broadcast 
! ACBSA- sete 47) ghc8s8_ STS(R4) : and part. of broadcast count 
Ag 58 ? 4 MOVL csbst ot (Re) : FILL in 
09500 1" F 5 JSB cae ; Send it ¢s its fate 
0 € AF 9 § BLBS 3 Loop ifo 
063106 04 CE 2 9 BBCC wacbsve STs. PCNT,ACB$B_STS(R4).608; If BC, no Longer part of count 


i i 
oon 


50.01 

8% 

oy ff 
52 

016F 


O3FE 8F 


wo 


+8 


-t 
m 
mo 
Pe 
oa. 
“ow 

oo 
we 
om 
ox 
“ne 


WDODODOOOOODOODOONDOOOOO0000000000000000 


SEESSO OSS ESSSELE PPLE ES 


WN =O ODNAUNE WN 9 ODNAU EW OODNOUS WOO 


PRR REE EF PWM WII 


WWIWIGPPOPNOPINIY 2 2 | BOO OCOCO TN THN MMMMMMMMMNOOOST CIGNA AAAAMMAAMAO 


OO 0090 9 9 8 Wi" 9 "9 - 


UM NAW OWOOM $$ PM WOWOWWIO & 


@ 
So 


i=] 
wu 


WE A998 POA SIM SOL NO PW — FO MD OOWWIWIWPOM MD OW MWD OMOMOOMOOeOO } ~ 


SOOSOSOSOSOSOOOOSOOOOSSoOS 


WDOOOOOOOOOOOOODO 
OO NINN NNO OO 
—OODNAULS WN OOno 


PRERRR RRS 


100$:  POPR 
RSB 


GET_NEXT 
sB1 


B 
50$: SOBGTR 


60$: MOV 


ENBINT 
RSB 


port for CSP 
end CSP request to al 


ACBSL_PARENT(R4) 
ACB$W-WAIT_CNT(R9) 


R 
*EXESDEALLOC_CSD 
$08 . 


abe 84:08:50 


#SS$_NORMAL ,RO 

RO, 1008 

ACBSW_WAIT_CNT(R9) 

90$ 

#ACBSV_STS_WAIT,ACBSB_STS(R9) ,90 

R6,R2 

#*M<R1,R2,R3,R4,R5,R6,R7,RB,RI> 

CSB: 
NT 

RO 

ACBSW_LAST_INX(R9) ,R1 

G*CLUSGL_CLUSVEC,R? 


G*CLUSGL_CLUB,R4 
Fg UOOe_ MARINER RS 


CSBSL_CSID(R2) ,R 


R1,ACBS$W_LAST_INX(R9) 


AX/VMS Macro V04-00 Pa 
SYSLOA.SREICSPCALL MAR:1 So" (955 


Dee Se Se Se Ge Se Fe Se te Se 


Erase pointer 

Account for this broadcast 
Set for deallocation 
Deallocate 

Loop 


Indicate success. 


If LBC, return immediately 
Take back this routine's 
reference 

If NEQ, may need to wait 

; Else our waiting is done 
Setup original CSB address 
Wait if necessary 


Restore registers 
Done 


Lock cluster database 


Assume no new CSB's 

Get next index to use 

If EQL, done 

Address the cluster vector 


L, none 

Get Cluster Block 

QL, not in cluster (7) 
Get vector length counter 

QL, none 
compere ogatnat last index 
If LSSU, 1t shrunk 
Update current index 


Get CSB 
If GEQ, this slot is empty 
Get the CSID 

Is this the local node? 

If EQL yes, don*t use it 

Else, say “CSB found 

Update index for next time 
Exit loop 

Still in the vector? Continue. 


Update index for next time 


Done with the vector 
Return 
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»SBTTL "EXESALLOC_CSD = Allocate and initialize a CSD block’ 


sca 


-t 
m 
<r 
mo 
oy 
ra 


Allocate ane initialize fixed portions of CSD structure and an ACB to be 
used as an internal work block. 


EXESALLOC_CSD should be used to allocate all CSD's. 
EXESDEALLOC_CSD should be used to deallocate all CSD's. 


PRPRRRRRRSSEE To 


EXE 
when the ¢s r 
rather a fresh one should be allocated for each use. 


GDOOOOOOOOOOOCOCOO 


OOO NAUNE WI OC OONOUE Ww 


é 


4 
4 
8 3 CALLING SEQUENCE: JSB EXESALLOC_CSD at IPL 0 
4 INPUTS: R2 Scratch 
4 R1 Size of structure to allocate (minimum CSD$AB_DATA) 
r RO Scratch 
4 OUTPUTS: R2 Address of allocated structure 
4 R1 Size allocated 
4 RO Completion status: 
4 SS$_NORMAL => normal success 
r Low bit clear => no buffer allocated 
4 ‘oe 
4 XESALLOC_CSD:: 
50 14 dO 04 MOVL S*#SS$_BADPARAM,RO ; Assume error 
Be 5$: SAVIPL : Push 1Pt, 
8E 0 4 TSTL (SP)+ ; Was is 0 ? 
01 1 4 BEQL 10$ 3; If EQL, oka 
05 45 RSB : Else illegal IPL 
38 §6BB O04 10$: PUSHR #*M<R3,R4,R5> : Save critical regs 
4 Check BYTCNT quota, wait if necessar The ACB is allocated along 


the ACB in order to prevent a process from gobbling up too much 


: with the CSD block for simplicity. By Tent quota is decremented for 
: pool in case the CSD is small. 


00000052 8F 51 01 MPL R1, #CSDSAB_DATA : Is the request large enough ? 
4A oF BLSsu 608 : If LSSU, n 
1 34 ce ADDL #ACBSK_CSPLNG,R1 3; Add in ACB size 
900° GF D MOVL  GACTLSGL_PCB,R4 : Get address of PCB 
0000000 gf 18 JSB Gre XE SBUF QUOPRC ; Wait for adequate BYTCNT quota 
2—€ 50 =«€C BLBC RO,50$ : If LBC, not enough 


3 EXESBUFQUOPRC put us at IPLS_ASTDEL to prevent AST's from cqreuntng 
3 any quota from the JIB. Take the quota and restore IPL to 0 to 

3 allow the call to EXESALLOCBUF to wait if needed without blocking 

: AST cot ivory (AST's may cause memory to be returned to pool) an 

3 hence avoiding a deadlock. There is no need to stay at IPLS_ASTDEL 


DOONAN E WI § SO OOO NAN EWI * 9 OD NAUE WIN" O ODNAULS WO 
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ee ed ed a a a ed dd td td SS dd ss 4 — 2) 3 4 a 
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ay 2 


12 
00000000 ° GF 
12 

25 50 

13 24 A4 bs 
50 3 

7E 
00000000 ' GF 
dB 

52. 0080 C4 
20 A251 
52 
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3E 
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62 0086 : 
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3 to avoid process deallocation since we have not yet allocated any 
: system wide resources (such as pool). 


MOVL = PCBSL J18(R4) .RO 
SUBL = R1, JIBSL_BYTCNT (RO) 


PUSHR 
JSB 


Get JIB 
Take the quota 


3 Save quota taken, PCB 
: Allocate the buffer 

..-return at IPLS_ASTDEL (2) 
Restore requested size, PCB 


If LBS, successful allocation 
If BS, wait mode DISABLED 
Resource to wait for 


SCHSRWAIT requires this 
PSL onto stack for SCHSRWAIT 


#°M<R1,R4> 
G*EXESALLOCBUF 
POPR #*M<R1,R4> : 


MOVL #RSNS_APDYNMEM,RO 
SETIPL #IPL$_SYNCH 
= (SP) 


RO,80$ : 
BBS #PCBSV_SSRWAIT,PCBSL_STS(R4) 50S; 
MOVPSL : 


JSB G*SCHSRWAIT Wait for resource 

SETIPL #0 Restore IPL 

BRB 30$ Loop 

: Error return 

MOVL  PCBSL_JIB(R4) ,R2 3 Get JIB 

ADOL R1,JIBSL_BYTCNT(R2) : Restore the quota taken 
CLRL R2 : Invalidate buffer pointer 
BRB 100$ 3 Take common exit 


: Got a buffer. Initialize the fixed portions. 


PUSHR #*M<R1,R2,R3,R4,R5> ; Protect volatile registers 

movcS #0,(SP5,#6,- 3; Clear the front end 
#ACBSK_CSPLNG+CSDSAB_DATA,(R2) ; 

POPR #*M<R1,R2,R35,R4,R5> 3; Restore 


Fill in the ACB fields as appropriate. ACB$B_RMOD and ACBS$L_PID 
must be filled in just prior to queuing the AST since it may be 
used as a fork block until then. 


The PID must be saved in the ACB since it may not be trusted if 
saved only in the CSD, especially if the CSD is to recieve a block 


transfer. 
ASSUME FKBS8_FIPL EQ ACB$B_RMOD 
ASSUME FKBSL_FPC EQ ACBSL_PID 
MOVW R1, ithe ea i ; Setup total size 
MOVB #OYNSC_ACB ACB$B_TYPE(R2) ; Setup block type 
MOVW #ACBSK-RETRY, ACBSW_RETRY(R2) ; Setup retry count 
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CSPCA = Loadable Exec support for CSP 16-SEP-1984 00:30: AX/VMS Macro Vv04-00 Page 23 
vO62000 "EXESALLOC_CSD - Attocate and initialize g7SE bn o8e 8 :58;36 USYSLOA.SRETCSPCALL MAR: 1 “ (%) 
30 A 00 0 18] } a VB #CEVSK_STA_I, ACBSB_STA(R2) i Initialize ACB state 
18 Ag 8 C4'CF E 048 3 MOVAB W*KAST; =KAST (Re) : Setup special-kernel AST ptr 
10. A CE'CF 3 rh 1 MOVAB aoe A TAST(R2 : Setup normal kernel AST ptr 
24 A2 AG OD 4C1 1100 OVL PCBSL_PID(R4) ,ACB USER Fi tRS) Copy internal PID 
AS 4 rh? 1101 LRL ACB a AST(R2); Zero user's AST address 
14 A2 4A E rh? i § MOVAB ACBSK_CSPLNG(R2) ,ACBSL_ASTPRM(R2) ; CSD address is AST parameter 
52 6 ¢ ace 1104 ADDL  §#ACBSK_CSPLNG,R ; Advance to the CSD structure 
1 4 ¢ rt 1 5 SUBL #ACBSK_CSPLNG,R ; Reduce size appropriately 
rte] 1} § ASSUME CSDSB_SUBTYPE EQ 1+CSDS$B8_TYPE 
OA AZ 6465 BF BO 0404 11 § MOVW #<DYNSC_CSD@8>!- ; Fill in type/subtype 
4DA 1110 DYNSC CLU,CSD$B_TYPE(R2) $ 
08 A2 «51—sBO 4DA 11] MOVW =R1, CSD$O_SIZE(R2) ; Save allocation size 
42 A 084 C4 7D O4DE 11418 MOVaQ PCBSQ_PRIV(R4),CSD$Q_PROCPRIV(R2) ; Copy Beers teeee 
GAA OBC C6 DD O4E4 1114 MOVL PCBSL_UIC(R4), CSDSL_PROCUIC(R2) ; Copy UIC 
6 A2 60 A4 DO O4EA 1115 MOVL PCBSL_PID(R4), CSDSL_IPID(R2) ; Copy internal PID 
50 00000000'GF DO O4sEF 1116 MOVL  G*CTLSGL_PHD,RO : Get address of header 
A2 00F4 CO 00 Ree Wi MOVL PHDSL_IMGCNT(RO),CSDSL_IMGCNT(R2) ; Copy image activation count 
54 CC A2 9E Qere 1119 MOVAB =ACBSK_CSPLNG(R2),R4 ; Get ACB address 
0174 30 200 1120 BSBW ACT_INSQ ; Queue ACB to ‘idle’ queue 
50 01 00 B38) i 1 MOVL #SS$_NORMAL ,RO 3 Success 
206 11 : : That's it. 
506 1124 : 
506 1125 1008:  SETIPL #0 ; Restore IPL 
38 =6BA 4384 11 § POPR #*M<R3,R4,R5> ; Restore regs 
05 05 11 RSB 3; Done 
0506 1128 
050C 1129 
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PREAMP SPL LLL 
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eallocate CSD or mark 5-SEP-1984 SYSLOA.SRCJCSPCALL.MAR;1 
SBTTL "EXESDEALLOC_CSD Deallocate CSD or mark it for deletion’ 


Deallocate CSD structure. The deallocation is done yie he PROC_EVENT 

mechanism to pryeees against deallocating the CSD if it active on some 

queue or there is a transfer in progress (there is no cancel request as 

part of the ACKMSG services). Depending upon the current state, the CSD 

8 either deallocated immediately or marked for delete when the CSD becomes 
ree. 


EXESALLOC_CSD should be used to allocate all CSD's. 
EXESDEALLOC_CSD should be used to deallocate all CSD's. 


Because some fields in the CSD need reinitializing, and since the call to 
EXESDEALLOC CSD is merely a request (the actual deallocation can only happen 
when the CSB ‘'runs down’), CSD's should not be recycled by the clients, but 
rather a fresh one should be allocated for each use. 


CALLING SEQUENCE: JSB EXESDEALLOC_CSD at IPL 0 or 2. 


INPUTS: RO Address of CSD to deallocate 
CSD$SW_SIZE(RO) = size of CSD 
OUTPUTS: RO-R3 = Clobbered 
XESDEALLOC_CSD:: 
PUSAR #*M<R4,R5> ; Save regs 


MOVAB -ACBSK_CSPLNG(RO) ,R4 
MOVZBL #CEV$_REQ DEALL,Ri1 
BSBW PROC_EVENT 


Get ACB block 
Setup event code 
Process the event 


POPR #*M<R4,RS> Restore regs 
MOVL S“#SS$_NORMAL ,RO Setup return status 
RSB Done 
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support for CSP 
Send a request message t 


-SBTTL "EXESCSP_CALL = Send a request message to local or remote CSP' 


C 14 
"Si$Eb=198¢ 82:08:00 ESYSLOR.Seedespcatoman:1 | 29" 


Call the Cluster Server Process on another node. 


A block of cote (the CSD) is sent to the CSP on the target node, and 
optionally recieve a response message into the same CSD. 


If CSD$L_USER_AST is 0, then this routine does not return until the block 
transfer has completed, or has failed. 


If CSDSL_USER_AST is non-zero, then this routine returns immediately. If 
the return is with the low bit clear, then the AST will not be delivered and 
the CSD should be deallocated upon return. If the return is with the low 
bit set in RO, then the AST routine should deallocate teh CSD. 


RO's AST When to EXESDEALLOC_CSD When EXESCSP_CALL 
low bit specified the CSD returns to caller 
LBC no Upon return - no further When the error is 
AST's are delivered. encountered. 
LBC yes Upon return - no further When the error is 
AST‘s are delivered. encountered. 
LBS no Upon return When all dialogues 
have completed. 
LBS yes By the AST routine or by As soon as possible. 


some action it schedules. 


EXESALLOC_CSD should be used to allocate all CSD's. 
EXESDEALLOC_CSD should be used to deallocate all CSD's. 


Because some fields in the CSD need reinitializing, and since the call to 
EXESDEALLOC CSD is merely a request (the actual deallocation can only happen 
when the CSB ‘'runs down’), CSD*'s should not be recycled by the clients, but 
rather a fresh one should be allocated for each use. 


CALLING SEQUENCE: JSB EXESCSP_CALL at IPL 0 


INPUTS: Re Address of CSD structure 
R Scratch 
OUTPUTS: RO S$S$_... status code. 
ALL other registers are preserved. 
XESCSP_CALL:: ; Send request to CSP 
PUSHR #*M<R1,R2,R3,R4,R5,R6> ; Save volatile registers 


; Check IPL, get ACB, etc 
s Itt 0 


BC, err 
: Go to [PL 2 to prevent AST's 


BSBW COMMON SETUP 
BLBC 
SETIPL #IPL$_ASTDEL 


| 
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CSPCA = Loadable Exec support for CSP SEP=1984 00:30: AX/VMS Macro v04-00 Pa CSF 
voes000 "EXESCSP_CA L = Send a request message t <* 3ee= 13k 0:38:56 SYSLOA.S REIe CSPCALL.MAR;1 oF (38) vie 
; Request the start of the block transfer sequence 
31 2 00 MOVL #CEVS fee BT,R1 ; Event is ‘request block xfer 
6 01 MOVZWL oss RMAL »R6 : Initialize status register 
OOF4 BSBW “poeet 3; Process it 
50 56 OD MOVL Re ORO ; Pickup status 
100$:  SETIPL #0 : Return to IPL 0 
09 31 A4 ti 33 BBS #ACBSV_STS_BCST,ACBSB_STS(R4), 206s If BS, part of ‘broadcast"’ 
oF 2 3 BLBC R 3 14 Doar then return now 
5 MOVAB ACBSK_CSPLNG(R4),R2 : Be kup 
1 BSBB WAIT 3 wait uP necessary 
OO7E 8F BA g00s: POPR #*M<R1,R2,R3,R4,R5,R6> ; Restore volatile registers 
05 00$: RSB ; Return to caller 


WAIT: 
We are waiting here for the block transfer to complete so that 


we can return to the user. This is done whenever CSD$L_USER aist 
is 0. It allows a synchronous return. 


Inputs: R4 Scratch 


a CSD address 
R SS$_NORMAL 
Outputs:  R4 Garbage 


ALL other registers are preserved 


hovzut #SS$_NORMAL ,RO + sete e return status 
VAB_ -ACBSK_CSPLNG(R2) 
65 Bet #ACBSY STS WAIT, AtBSB_ STS(R4), 1068": “it Be, not suspended 
a : et 
#RSNS sASTWALT. RO > Setup wait condition 


SETIPL #IPLS$_SYNCH ; SCHSRWAIT requires this 


PARRAMATTA AAA AAD 


FW OOO NAUES WN O OO NAME WN OOONOAULS WOO 


50 
54 =CC Ag 
1A 31 AA OO 
54 00000000‘ GF 
50.01 


comow 
oo-mn 


7E OC MOVPSL - ; Put PSL on the stack 
00000000 ' GF 16 JSB G*SCHSRWAIT ; Wait for resource 
g SETIPL #0 ; Restore IPL 
DA 11 BRB WAIT ; Loop 
05 75 100$: RSB ; Done 
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upport for CSP hes 1 mite ts 1 00: 30:68 AX/VMS M 


COMMON_SETUP: 


3 Sanity check various fields in the CSD 


ASSUME CSDSB_SUBTYPE EQ 1+CSD$B_TYPE 


CMPW =: #<DYNSC_CSD@8>!DYNSC_CLU,CSD$B_TYPE(R2) ; 


MOVAB =ACBSK_CSPLNG(R2),R4 
CSD$Q_INT Lose (Res 


CLRQ 
MOVZWL ACBSWISIZE(R4).R 


ee 
ADDL3 CSOSL_SENDOFF(R2),R2.R1 
ADDL CSDSL~SENDLEN(R2) ,RI 


aS 


acro V04-00 Pp 7 
end a request message t 5-SEP-1984 04 SYSLOA.SRCJCSPCALL.MAR; 1 ok (38) 
MOVL #SS$_BADPARAM,RO ; Assume error 
SAVIPL ; Push IP 
TSTL sf ; Was is 0? 
BNEQ 100$ ; If NEQ, illegal IPL 


Right structure? 

; If NEQ, return error 
; Pickup ACB address 

; Zero initial status 
; Get ACB total size 

; Calculate end 


; Within bounds ? 
; If GTRU, out of bounds 


Bete Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Se & 
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without decrementing 
BYTCNT. 


Save user AST address 
If NEQ, continue 

If BCST, never wait 

Heals wait until done 
a 


BGTRU 100$ 

ADOL CSDSL_RECVOFF (R2) ,R2,R1 

ADDL 5 ePaper LENRE? oft 

CMPL R1,R 

BGTRU 106$ 

3 If the user want's an AST, let him have it 
s its AST quota. The ACB is needed anyway as a work block, and 
: the user has been charged for it via JIB$ 
MOVL CSDSA_ASTADR(R2) ,ACBSL_USER_AST(R4) 
BNEQ 70$ 

BBS #ACBSV_STS_BCST,ACBS$B_STS(R4) ,70$ 

BISB #ACBSM_STS WAIT,ACBSB_STS(R4) 

MOVL #SS$_NORMAL ,RO 


y ‘success 
Done 
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~SBTTL ‘KAST - Special Kernel AST entry point’ 

SBTTL "AST = Normal Kernel AST entry point’ 


— 
Wwrn—O 


The proper event is determined and the event processor is called. 


AST: 3; Special Kernel AST 


; The ACB is in RS. IPL is IPL$_ASTDEL (2). 
: RO thru RS may be clobbered upon return to caller 


C4 
C4 1 
C4 (4 
C4 1 
C4 «1324 
C4 1325 
C4 1 § 
| 
ct (1 8 
C4 (1 
4 1 
4 (4 
C4 (1 
Bee 1884 
52 14A5 OD te 1335 MOVL ACBSL_ASTPRM(R5) ,R2 ; Get CSD 
+ & 6 c8 1 : MOVL  #CEVS-KAST_DEL,R1 : Setup event code 
mit 5cB 1 BSBB ASTEVT 3; Process event 
a } 3 RSB 3 Done 
SCE 1340 AST: 3; Normal Kernel AST 
ate }8cp 
ate \ ‘§ 3 The ACB is the AST parameter. IPL is 0. 
ae } ig : ALL regs but RO,R1 must be saved/restored. 
SCE 134 : 
003¢ ace 1348 -WORD “M<R2,R3,R4,R5> : ere mask 
52 04 AC DO 0500 1349 MOVL 4(AP),R 3; Get CSD address 
51 OD OD 504 1 3 MOVL #CEVS_AST_DEL,R1 ; Setup event code 
ee 507 1351 BSBB ASTEVT : Do AST common processing 
54 OD 509 1 26 TSTL : Still have an ACB ? 
09. = 508 135 BEQL 30$ : If EQL, no 
50 20 A, 00 30 34 ROVL A BSL _USER_AST(R4) ,RO ; Get Ast address 
3 none 
60 6C FA OSE3 1 36 CALLG <AP),(RO) : Call the user AST routine 
04 2k6 : : 30$: RET : 
3 CC A2 a SE7 1 8 ASTEVT: MOVAB -ACBSK_CSPLNG(R2) ,R4 ; Get ACB address 
18 31 A4 O01‘ 5EB 1360 BBCC #ACBSV_STS_QUE ACBS$B_STS(R4) 908; ACB no longer queued to PCB 
» 5FQ 1361 TSTL ACBSL_OSER_AST(R4) ; Does user want AST delivered? 
OF 1 F3 (1 66 BEQL 3; If EQL, no 
50 0000000 ' GF +4 FS (1 MOVL G*CTLSGL_PHD Re : Get current PHD 
4E A2 O0F4 CO OD FC 1364 CMPL § PHDSL_IMGCNT(RO),CSDSL_IMGCNT(R2S ; Compare mage deact ivations 
13 06 1365 BEQL 70$ : If EQL, same mage is running 
51 E 6 1 6 ops: MOVL #CEV$_NO_AST,R1 3; No user AST to deliver 
OO1E 7 136 $: BSBW PROC_EVERT : Process the event 
60A : rt: RSB 3; Done 
ear } 29 90$: BUG_CHECK INCONSTATE,FATAL ; Queued state is inconsistent 
60F 1372 
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support for 16-SEP-1984 00: AX/VMS Macro V04-00 Page 
- Fecess ¢ sb cost if p 5-SEP-1984 t 83 ‘38: $8 SYSLOA.SRCJCSPCALL.MAR; 1 . a) 


SBITL ‘PROC_EVENT_ASY = Process CSD event if process is still around’ 
e SBTTL "PROC_EVENT™ - Process CSD event’ ° 


O40 , 


ze 
— 
t 


v 

zr 
oo 
ow 


This routine processes all CSD events and is state at eriven, Action 
routines are called until the null event is detected. Each seston routine 
generate F. new event, which it returns in R1, and returns with the low bit 
set in RO only if the indicated state change is to be pertorned. 


CALLING SEQUENCE: JSB PROC_EVENT at IPLS_SYNCH or Lower 


INPUTS: R5 Scratch 
RG ACB ptr 
R3 Scratch 
R2 Optional event pereneter 
R1 Standard event longword 
RO Scratch 
ALL other registers are scratch. 
OUTPUTS: RG Unchanged, or zero if deallocated 


ALL other registers between RO and R5 are clobbered 
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DD SD. Ds OD. Os OS DS OS Os DS OS DS OS DDO ODP PPP A AAA AAA OOOO 


a a a at at td = 8 td 8 = = 3 SS = = = ot ws = SS 2 Sd 3 SS 2s os ss 2 a a ss a 


40 BROC_EVENT ASY: ; Process asynch event 
50 3h AG «(3C 40 MOUZWL ACBSL USER nt tye RO ; Get process index 
52 00000000'GF DO 40 MO G* aes eecinns »R2- i Get address of PCB vector 
52 6240 00 40 MOVL ( ; Get PCB itsel 
60 A2 24 AG D1 40 CMPL oo muse _PID(R4) ,PCBSL -PID(R2); Is this process still here? 
13 3 BEQL ROC_EVE ; If EQL, 
o21c Os 331 23 BRW DEAL CSD ; Else, deallocate CSD/ACB 
408 PROC_EVENT: : Process all CSD events 
40 ASSUME IPL$_SYNCH EQ IPL$_SCS 
41 DSBINT #IPL$_SYNCH ; Synchronize 
‘ 10$: : 
rt : Find appropriate state table entry 
41 : 
51 OF 01 41 CMPL SoecEVS_ MAX_EVT,R1 : Is event within range ? 
40 =F at pL sey ; If LSSU then bug exists 
50 51 06 5 41 MULL toreves STATES,R1,RO ; Bias for current event 
53 30 a4 9A 41 MOVZBL ACBS$B_STA(R4) R$ : Get ACB state 
20 53 0 06 4 ADDL R3,R0- ; Add current state offset 
53 FA51 CF40 SE se 14 MOVAW  WCEVSAW_STA_TABCROJ.R3 ; Address state table entry 
te 14 ; 
4 ‘ ; Dispatch to the action routine with the following: 
44 14 : INPUTS: RS Ser 
44 14 3 Q4 ACB oo * 
44 14 : 3 CSID of target system 
44 14 3 R CSD point 


a2 
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- P 4 AX/VMS Macro V04-00 Page 30 
VO4=000 “PROC CEVENT = Process CSD event’ "S73Eb=198e 04:08:56 ESYSLOA. SREDESPCALL. MAR: 1 By 
$ R1 Event code 
44 1 ; 3 RO Scratch 
44 14 4 : ON RETURN: RS Garbage 
44 14 3 RG ACB pointer 
44 14 § 3 R Garbage 
44 14 3 g Garbage 
rai § ; RO tor ig Ay cor saune change 
: se u 
etd 1240 : Low bit clear to inhibit state change 
46 1469 
3; Save table address 
53 a ah gid 1402 PUSHAB Re tas $ Get action routine index 
50 F9B3 CF 9 rk} 1445 MOVAB W*CEVSAL_ACTTAB,RO : Get action routine table 
50 6043 C 64E 144 ADOL CROSER SI TRO ; Get action routine address 
52 14 AG OD e39 1269 MOVL  ACBSL_ASTPRM(R4) ,R2 : Get the CSD 
2g OE A200 63 1448 MOVE CSDSL_CSID(R2), RS ; Get the, CS1D 
eb BEDO gee 1480 POPL + : rat Sess Siete, ctegme stack 
s is 
3¢ re rr 1033 bear "00s ; If EQL, its been deallocated 
04 é 9 0663 1288 BLBC RO,50$ ; Avoid state change if LBC 
30 A4 Fi 50 0666 1454 MOVB (R$) , ACBSB SO es ; Change state, 
51 00 D1 066A 1455 50S CMPL = $*#C revs EXIT, : Are we done ? 
BF 12 deep 1428 BNEQ 10$ : If NEQ then process next event 
O66F 1458 100$:  ENBINT : Restore IPL 
05 bes 1323 RSB ; Done 
$6? 1461 2008 BUG_CHECK INCONSTATE,FATAL : Signal the bug 
067 1066 
0677 146 


I 
e Exec support for CSP 16-SEP-1984 00:30: AX/VMS Macro V04-00 2 1 
UE - Susue” ACB to CSP$Q_ACB_ID ~3Eb=1382 90:39:56 SYSLOA.SRCJCSPCALL.MAR; 1 — (33) 
I 


-SBTTL ‘ACT_INSQUE = Queue ACB to CSP$Q_ACB_IDLE’ 
» SBTTL *ACT_REMQUE = Remove ACB from current (internal) queue’ 


vO4=000 ‘A 


or 
“Oo 
a 


-a 


The ACB queue operation is performed. pon return, the event code passed 
; in Rl is unchanged and the low bit of RO is set. fhis will force the same 
; event to be reprocessed after the state change. 


INPUTS: R4 ACB pointer 
R1 Event to be processed 
RO Scratch 
OUTPUTS: RG Unchanged 
R1 Unchanged 
RO Low bit set to force state change 


ACT_INSQUE : ; Put ACB on ‘idle’ queue 
BSS , 


PAAR AAAAAAAAA AAA AAO SAA OSAASOAAS 2H 


OO O000000 0009000008 NINN NNN OO 


09 31 A401 Fe #ACBSV_STS_QUE,ACBSB_STS(R4),10$; Mark ACB as ‘queue 
FADF CF 64 E INSQUE (R4),CSP$Q_ACB_IDLE ; Remove from current queue 
50 01 B? MOVL RO ; Request state change 
0 RSB ; Return to reprocess same event 
10$: BUG_CHECK INCONSTATE,FATAL ; Queued state is inconsistent 
ACT_REMQUE: ; Dequeue ACB and deallocate it 
07 31 AGO fe #ACBSV_STS_QUE,ACBSB_STS(R4),10$; Mark ACB as ‘not queued’ 
54 4 F REMQUE (R4),R& 3; Remove from current queue 
50 1 00 MOVL #1,R6 ; Request state change 
05 ; Return to reprocess same event 


ODMANF = ODO 298 OO 
on 
i] 
wn 


CODCOD SOSDDSO ADDO OSOOOOOCOOODOOOOOOOOOO 
PARA 

a tk ak ak a a = tt 8 8 2 8 Ss 2s td 2 4) 2 1 
INN NN ee ee 


OO 0000 00009000909 69 00090969 09 SII NII NIN NINN AAO OO 


DNAS WN SO ODNAN EWN 0 ODNA NE WIN OOONOAUM 


BUG_CHECK INCONSTATE,FATAL ; Queued state is inconsistent 
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CSPCA = Loadable Exec support for CSP -SEP=-1984 AX/VMS Macro V04-00 P 
GoecobD TACT GET CDRP - Al Scote & a warm CORP Sh ~SEP-1984 t 82: 38: $8 YEYSLOA. SRCICSPCALL.MAR; 1 — (3% 
i ] 9 »SBTTL ‘ACT_GET_CORP = Allocate a warm CDRP for block transfer’ 
1502 ; 
1 : 3 INPUTS: R5 Scratch 
99 1504; R4 ACB pointer 
99 1505 ; R CSID of target system 
99 «1 § 3 R CSD pointer 
4 1 : Rp Scratch 
$38 ! 3 § RO Scratch 
699 1510 ; OUTPUTS: R5 CORP pointer if allocation was a success 
$33 1511 ; Re ACB pointer 
99 1512; R Garbage 
699 1513; R2 Garba Fe os 
699 1514; R1 CEVS_ DRP if no CDRP was available 
699 131? : CEV$_¢ gore CDRP if CDRP allocation was successful 
699 1 1 : RO Low Bit Set to request state change 
0699 1517; 
0699 1518 ;- 
0699 1519 ACT_GET_CDRP: ; Allocate warm CDRP 
0699 1520 ; 
0699 12 1 3 
543 FA ¢ ; Allocate a warm CDRP and fill it in as appropriate 
0699 1524 : 
00000000 ' GF 16 0699 1525 JSB G*CNX$ALLOC pat ; Get the CDRP 
51 96 9A O069F 1526 MOVZBL #CEV$_NO_CDRP, 3 Assume allocation failure 
31 50 €9 Q6A2 1527 BLBC 0 : If LBC, allocation failed 
52 14 a4 DO 0605 1528 MOVL ACBSL ASTPRM(R4) R2 : Get the CSD again 
3C AS) 65540—Ssi#sC«OBAD =: 1529 MOVL CORPS$L_VAL5(R5) 3; Save ACB address 
4C AS O6DA'CF 9E O6AD 1530 MOVAB uo AKER MSGBLD cone -MSGBLD(RS) ; Setup message build routine 
4A 94 0685 13 1 CLRB CDRPS$B_CNXRMOD( : Kernel mode 
wet edb DO 0686 15 : MOVL G“MMGSGI. wth ete ne ; Get SPT base address 
1 09 EF O68D 1534 EXTZV ryey VPA, AVAS _VPN 3 Get page number 
40 AS 6041 DE O6C2 1535 MOVAL (RO)CR1) tDRP SE ERXSVABTE CRS) Store SVAPTE 
46 AS 08 A2 C 06C 1536 MOVZWL CSOSW W SI 12 ), CORP NXBCNT (RS) : Store BCNT 
44 AS 52 FEOO 8F AB s¢3 1332 BICWS #*C<VASM _BYTE>, *R2, CORPSW. CNXBOFF (R5) ; Store BOFF 
6D3 1539 : : 
603 1540 : Exit with proper new event code 
Bi 
51 06 9A 0603 1 rk hov7et #CEV$_GOT_CDRP,R1 3; Setup new event 
50 DO 0606 1544 100$: MOV #1,R0™ : Request state change 
05 0609 1545 RSE 3 Done 
6DA 1 $6 
+) } 2 REQ_MSGBLD: 
7 ! a3 ;  ACKMSG calls us here to build the request message. 
6DA 1551 3; _ INPUTS: R5 CDRP ptr 
DA 1 § : RG POT ptr 
DA 1 : a CSB ptr 
6DA ! : 3 R Message pointer 
1556 : 
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CSPCA = Loadable Exec support for C 16-SEP-19 AX/VMS Macro V04-00 Page 33 
Voec0b0 *ACT_GET_CDRP - Allocate a on CORP for g7SEr 1384 80: a8: $8 ESYSLOA.SREIESPCALL MAR: 1 . 3 
50 3C AS DO O6DA 1557 MOVL CORPS$L_VAL5(R5) ,RO 3; Get ACB address 
50 14 AO Be 6D 1558 MOVL ACBSL _RSTPRM(ROS RO 3; Get ye? CSD a 
ic A 08 AO C Q6E 1559 MOVZWL CSDSU"SIZE(RO) .COPMSGSL_CSD SIZE(R2) 3 te si ae 
1A A OC AO 8 6E 1560 MOVW CS0$ ral ), CSPMSGSW GLIENT (RE) ; Setup ct 
08 A2 06 E 1 MOV v8 #CLSMSG K_FAC esp CLSMSG B_FACILITY(R2) ; Tell ACK Mec. Fs aw 
09 A2 94 O6FO 1 CLRB CLSMSG$B~FUNT (R25 : Our func code 
F 1 3 = not used yet 
05 F351 ee RSB 3; Done 
F4 1565 
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INPUTS: 


OUTPUTS: 


SIDE EFFECTS: 


T_FORK_WAIT: 
VL 


L 
BSBW 


RSB 


L 14 
dwelt for up to S-SEP-1986 04:08:50 


SBTTL "ACT _FORK_WAIT = Fork and wait for up to 1 second’ 


ACB pointer 


R 
R 
R 
R 
R 
R 
R 
R 
4 Garbage 
R 
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AX/VMS Macro V04-00 
SYSLOA.SRCIJCSPCALL.MAR;1 


ch 

ointer 

of target system 
erator 


CORP pointer if allocation was a success 


earoege 
CEVS_EXIT if okay to retry 


CEV$-GIVEUP if retry count exceeded 
RO Low Bit set to request state change 


When the fork returns, PROC_EVENT is called with the 


event CEVS_FORK_DONE 


WP 


Q ACBSB_RMOD 
Q ACBSL_PID 
Q 


ACBSL—AST 
ACBSL~ASTPRM 


anw TTT 
xf KKK 


5),R 
kB$8_FIPL(RS5) 


R5,R4 
#CEV$_EXIT,R1 
#7,RO0 


a {ACBSV_STS_QUE .ACBSB_STS(RS) , 908; 
#ACBSV_STS_QUE ,ACBSB_STS(RS) ,90S; 


#CEVS_FORK_DONE,R1 
PROC_EVENT—ASY 


BUG_CHECK INCONSTATE,FATAL 


; Queued state is inconsistent 


Fork and wait for up to 1 sec. 
Assume retry count exceeded 
Account for retry 

If LEQ, count exceeded 


; Setup fork block address 
; Get ACB fields to be saved 
; Setup fork IPL 


Create fork thread 
Re-establish ACB pointer 
Setup next event code 
Request state change 
Done 


Mark ACB as ‘queued’ 

Fork and wait for a second 
Mark ACB as ‘not queued’ 
Re-establish ACB pointer 


; Setup event 
; Process event if process is 
; still here, else deallocate 
: the ACB/CSD 
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CSPCA = Loadable Exec support for CSP -SEP-1984 00:30: AX/VMS Macro Vv04-00 Page 35 
voes006 “ACT REG ILL BT = Request illegal block- ‘S-Sep-1986 04:08:36 Leveroa.caeiesbeAry mars? P29 (38, 
731 «#1 ~SBTTL ‘ACT_REQ_ILL_BT = Request illegal block-transfer’ 
! 1  SBITL "ACT-BLOCK_XFER = Request ACKMSG Block Transfer’ 
1 1604 : 
731 1625 ; INPUTS: R5 CORP pointer 
731 «1 § 3 R4 ACB pointer 
731 1 3 R CSID of target system 
ro. 8 3 R CSD pointer 
731 +1629 ; R Scratch 
4 ! 1 ? : RO Scratch 
31 16 ‘ : OUTPUTS: RS Garbage 
rao. 2 : RG ACB pointer 
731 +1634 ; R3 Garbage 
731 1635 ; R2 Garbage 
731 16 § ; R1 CEV$S_EXIT 
0731 1637 ; CEV$_BT_DONE 
0731 1938 § CEV$"CSP_BUSY 
Bf ! 197 : RO Low Bit Set to request state change 
0731 184 : SIDE EFFECTS: When the fork returns, PROC_EVENT is called with the 
0731 1966 3 event CEVS$_FORK_DONE 
gre Ieee 
$31 1645 ACT_REQ_ILL_BT: ; User requested block transfer 
0731 1966 ; with CSD in the wrong state 
56 000002C4 8F DO 0731 164 MOVL #SS$_DEVACTIVE,R6 ; Say ‘CSO in wrong state’ 
51 00 00 8 8 1648 MOVL S*#CEVS_EXIT RI ; No further events 
50 01 90 O73B 1649 MOVB #1,R0 3; Allow state transition 
0 OSE 16st a 
Ore 1036 ACT_BLOCK_XFER: ; Request ACKMSG block transfer 
re te 
O73F 1655 : CNXSBLOCK_XFER usually returns sarestroneusly. Therefore, we 
O73F 1656 3 must call a routine to call CNX$BLOCK_XFER so that we can return 
8 : 163? ; to our caller with the correct values in the registers. 
73F 1659 : 
31 AS «(01sé88 re 1660 B1SB #ACBSM_STS_ASY,ACBS$B_STS(R4) ; Mark ACB for asynch access 
54 DD 0743 1661 PUSHL R4 :; Save ACB pointer 
2. 74 1906 BSBB 30$ 3; Make request and return 
54 aeD0 747 166 POPL R4 . ; Restore ACB pointer 
03 31 A4 O00 CE eee 1968 BBCC #ACBSV_STS_ASY ,ACBS$B_STS(R4) ,10$; or. Cae OCK_XFER returned 
3 usly. 
$1 00 9A OTE 1666 MOVZBL #CEV$_EXITR1 No further events for now 
50 2 7 g 1667 10$: MOVL #1,R0 ; Request state cnange 
0 i 1998 RSB ; Done 
f é 1870 208: BUG_CHECK INCONSTATE,FATAL ; Queued state is inconsistent 
75A 1672 30$: 3 
73h 1678 : Request block transfer. 
75A 1675 : We are resumed after the call to BLOCK_XFER when block transfer 
PRA 1978 : sequence has completed with the following registers setup: 
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MOVB 
MOVZBL CEVSAB_RSP_CEV 
BBSC 
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port for CSP sha 1 mitt h 9 00: 30:68 penivas Macro YORr00 Page (3) 


equest ACKMSG Block T -SEP- SYSLOA.SRCJCSPCALL.MAR;1 
R5 Address of CDRP 
R Address of PDT 
® CSB address 
R Address of response message buffer (if RO has LBS) 
R Scratch 
RO tatus 
#ACBSV_STS_QUE,ACBS$B_STS(R4),10$; Mark ACB as ‘queued’ 
(R4) ,CSPS$Q-ACB_XFER ; Queue to ‘active xfer’ queue 
CNX$BLOCK ad i Do block transfer seqeuence 
CORP$L_VAC5(R5) ,R4 ; Get ACB pointer 
#ACBSV-STS_QUE ,ACBSB_STS(R4),20$; Mark ACB as ‘not queued’ 
(R4) RG 3; Remove from ‘active xfer’ List 
RO,50$ : If LBS, then no error 
#CSPMSGSK_RSP SYNERR,R1 Assume synchronous error 


return was synchronous 


#ACBSV_STS_ASY,ACB$B.STS(R4),60$: If BS 
3 Asynchronous error 


AS 
#CSPASGSK_ASP_ASYNERR. Ri 


BRB 3; Continue 
MOVZBL CSPMSG$B_RSP(R2),R1 ; Get the response code 
MOVQ RO, ACBSK CSPLNG+CSD$Q_INT_I0SB(R4) 3; Save status info 


DUMP_CD : Dump CORP using RO status 
ACBSK_CSPLNG+CSD$Q_INT_IOSB(R4),RO ; Recover status info 


If ACBSV_STS_ASY is still set then the return is synchronous and 
all we have to do, after clearing the flag, is to return and let 
our caller chain to the next event since we are still in the event 
processing Loop. 


Otherwise, we must call PROC_EVENT_ASY to check to see if the 
process is still there, and Tf so, to process the new event. 


R1 ,#CSPMSGSK_RSP_MAX ; Within range ? 
: If LEQU, o ay 
#CSPMSGS$K_RSP iLL R1 3; Override with our own code 
RSP_ R15,R1 ; Convert response to an event 
#ACBSV~STS~ASY ,ACB$B_STS(R4) , 908: 


If BS, return was synchronous 
PROC_EVENT_ASY 


; Process event 
3; Return 


Dump CORP according to status 
RO,10$ If LBC, special cleanup 
CNXSDEALL_WARMCDRP_CSB ; Deallocate ACKMSG resources 


The following code assumes that the CORP is ‘‘cold’’, that is, 
contains no associated buffer or RSPID. 


HR #*M<R2,R3> ; Save regs 
L R5,R0 


; Get address for deallocation 
; CORP is now ~~ 
G*EXESDEANONPAGED : Deallocate i 


<- 


04000 


upport for CSP 


pquest ACKASG Block T 'S-sEP=-1984 04;08;36 


POPR 
RSB 


#*M<R2,R3> 


AX/VMS M v04-00 
SYSLOA.S iesp CALL.MAR;1 


; 
; Restore regs 
Done 


Page Fe} 


5) 


3 


CSPCA = Loadable Exec support for CSP 16-SEP-1984 00:30: AX/VMS Macro Vv04-00 Page 38 
voe 5000 *ACT_NO_AST = No Age to deliver - deallo grSEb 19 4 $5 58:36 SYSLOA.SRCIJCSPCALL MAR; 1 . (38) 
7BE 1760 -SBTTL ‘ACT_NO_AST - No AST to deliver = deallocate 550 if broadcast’ 
7BE 1741 .SBTTL ‘ACT-GIVE_UP - Retry count has be exhausted, give up' 
7BE 1742 .SBTTL ‘ACT-QUE_RAST = Queue Special Kernel AST to process 
° L QUE - Queve Normal Kerne to process 
Pee 1th? SBTT *ACT_QUE_AST Q l l AST e 
7BE 1745 ; 
pee 1768 ; Come here when the Block transfer has completed or failed. 
7BE 1748 ; 
7BE 1508 3; INPUTS: R5 Scratch 
7BE 1750 ; RG ACB pointer 
7BE 173) 3 R3 CSID of target system 
7BE 17 § : 8 CSD pointer 
7BE 1753; R1 Scratch 
ree 1020 3 RO Scratch 
SrBE 1786 3 OUTPUTS: R5 Garbage 
QO7BE 1757 ; RG ACB pointer 
07BE 1738 3 R3 Garbage 
O7BE 1759 ; R2 Garbage 
eo 1760 ; R1 CEV$S_EXIT 
ore 1769 : RO Low Bit set to request state change 
7BE 1763 :- 
bye 1764 -ENABL LSB 
O7BE 1765 ACT_NO_AST: ; No AST to deliver 
1A4 04 8A 07B 1206 BICB #ACBSM_STS_WAIT,ACBSB_STS(R4) __; No need to wait any longer 
34 31 AG) «6003)SCtsé#€E;? 7¢ 176 BBC #ACBSV_STS BCST.ACBSB_STS(R4) , 308 ; If BC, not part of broadcast 
51 93 b¢ rc? 1763 MOVL #cEVS_REQ_DEALL RI ; Else, request deal location 
; Continue 
7¢CC =«(91770 : 
Naas 1771 ACT_GIVE_UP: ; Retry count exceeded 
022c 8F 863C «(OCC ieee MovZwi #SS$_TIMEOUT,- ; Setup status 
A 7D 177 ACBSR_CSPLNG+CSD$Q_INT_IOSB(R4) ; 
28 31 AS) «OO01séSG Bee 1003 BBSC #ACBSV_STS_QUE,ACBSB_STS(R4),50$; Make sure ACB is not queued 
707 1776 ACT_QUE_KAST: : Queue Special Kernel AST 
OC AS 26 A046 D 707 177 MOVL ACBSL_USER_PID(R4) ,ACBSL_PID(R4); Copy internal PID 
0B AS) AO 8F 70C€ a4 MOVB #ACBSA_KAST!- ; Mark as ‘special kernel’ 
O7E1 177 ACBSM_NODELETE,ACBSB_RMOD(R4) ; and don't delete ACB ’ 
52 01 00 OQ7E1 1780 MOVL #PRI$_TOCOM,R2 : Setup priority increment class 
02. 11 ree 1g 1 BRB 10$ ; Continue 
726 17 j ACT_QUE_AST: ; Queue Peraet Kernel AST 
52 D& O7E6 1784 CLRL R2 ; Use null oe ority inc. class 
15 31 AG 1 E 7E 1785 10$: BBSS #ACBSV_STS_QUE ,ACBSB_STS(R4),50$; ACB will be ) me ag to the PCB 
55 4 0O 7ED 17 $ MOVL R4,R5 ; Setup ACB pointer 
4 oD OQ7F 17 PUSHLE R4 ; Save ACB address 
00000000'GF 1 7F2 17 3 JSB G*SCHSQAST ; Queue the AST 
4 BED 7F8 17 POPL RG ; Restore ACB address 
3} D 7FB 17 708: MOVL #CEVS_EXIT,R1 ; No new events 
0 1 3 4a 1738 40$: move #1,R0 : pequest state change 
179 
: 1098 50$: BUG_CHECK INCONSTATE,FATAL : Queued state is inconsistent 
1796 -DSABL LSB 
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= Synchronous block trans "ers P-19 


"ACT_SYN_ERROR 
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ACBSL_USER_AST(R4) 
CSD$W_I0SB_STAT(R2) ,R6 
#CEVS_EXIT,R1 

#1,R0 
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= Synchronous block transfer error’ 


ter 
target system 
ter 


CEv$s XIT 
Low Bit set to request state change 


Synchronous block transfer err 
No AST delivery if synchronous 
error return 

ote seatue. $8 be returned 

to 5 ESCALL 

No further Scenes 

Request state change 

Done 
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ec support for CSP 16-SEP-1984 730: AX/VMS Macro V04-00 P 4 
- it tegal user deallocatio 5-SEP-1984 90:38:58 YOYSLOA. SRETCSPCALL MARS 1 a (28) 


» SBTTL "ACT_REQ_DEAL = Illegal user deallocation request’ 


04-000 “at 


y 
Da 


2.090909 60 0d 09 09 G0 On 09 09 C9 Cd C9 GN CD Cd CD OD OD CD OD CS Cd Co CD Cd Cd 00 G9 C9 Go CO CD CD COCO COCDCOCDOCDCDCDOCDCDCDODCDODOD 6rma 


PRD a ek tt a a a ts a ss a ss 9 i a a a ts tt 


oo 
~ 


INPUTS: ch 

ointer 

of target system 
einer 


OUTPUTS: yee 
to indicate CSD has been deallocated 
Garbage 


Garbage 
CEVS Brat 
Low Bit clear to avoid state change 


DDBDDADD BDADAAD 
O—-NMWE YO PUN EU 

nw 

ao 

~~ 

oe 

Cad 

o 

=> 


Oe So Se Oe Be Oe Oe Oe Be Oe Se Se Se Be Se eee 


or 


TLREQ_DEAL: ; Illegal user dealloc. request 


The user has requested that the CSD be deallocated while the CSD 

is in the wrong state (e.g., a block transfer is in progress). 

Since this is a user error just prevent user AST notification and 

let the transfer run its course. When the transfer completes and 

ene papestes kernel’ AST is delivered, return quotas and deallocate 
e s 


Note: 
This action routine could be rewritten to bug-check, but since 
since not all users have been updated yet to request AST 
notification, and since there is no adequate mechanism yet in 
lace to detect image run-down (an interactive user may have 
ontrol-Y'd and issued a STOP) we do the next best ching: stop 
the user AST delivery and return quota's when the operation 
actual completes. The choice of when to return quota's is not 
perfect, but the choice was made since it nor save the system 
from running out of pool at the expense of the process possibly 
running out of quota. 


Eventually, each client must be updated to request AST 
notification even if it is not receiving any response. Also, an 
image run-down hook is needed and a hook in ACKMSG to abort a 
transfer in progress. 


CLRL = CSDSA_ASTADR(R2) ; Prevent AST notification 
LRL Ob USER AST CRG) ; Here too 
MOVZBL #CEVS_EXIT,R1 ; No further events 
L RO ; Allow state change 
RSB ; Done 


COSSOOODOODOSSOOS DODO OOODOODODODODODOOOOCOOOOOOOODOOOOOOCOOOOOO 
re Ae ae Oe ee ae Oe Oe ee ee Oe oe ee ee ee ee ee ee ee ee ee ee 
eee ee eee eS SYS SS» 
9.090909 09 00.69 00.00 00 00.00.00 09.00 09 09 00 9 C0 0 C0 00.09 0D GD 00 Cd C0 00 09 09 C0 00.09 C0 OL GD.09:G9.G9:09 69 G9 G9 G9. C900 00000000 
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*ACT_DEALL = Deallocate CSD, return quot 5-SEP-1 SYSLOA.S REI CSPCALL.MAR; 1 (29) Vv 
] 79 » SBTTL *ACT_DEALL - Deallocate CSD, return quotas’ ; 
1 ; 
1 3; INPUTS: RS Scratch 
1 : 8 ACB pointer 
1 4 ; R CSID of target system 
1 5; B CSD pointer 
1 § : R Scratch 
! : RO Scratch 
1 : : OUTPUTS: RS $%3 “t 
! + ; R . a nereete CSD has been deallocated 
1 92 : R 4 
1 38 : g Garbage 
1 iy : RO Low 6 ' y ren to avoid state change 
1 3% - 
1 9 ACT_DEALL: Deallocate CSD, return quota 
f 1 8 MOVZ ACBS$L_USER helt RO Get process index «iti 
Dd 5 9 MOVL iti ae VEC,R1 Get address “fi PCB vector 
00 0 MOVL (R1)CR ; Get PCB its 
D1 1 CMPL ACBSL MOSER R_PID(R4) ,PCBSL -PID(RO); Is this process still here? 
12 § BNEQ DEALL_CSD If NEQ, no 
3¢ 7 4 MOVZWL ACBSW_SIZE(R4) ,R1 get uota taken 
06 5 MOVL  PCBSL~JIB(RO),RO Get 18 
C 4 $ ADOL R1,JIBSL_BYTCNT (RO) Return quota 


pes hocate CSD/ACB 
C, not part oF of Bcst count 
ne’ parent ACB, if any 
Erase pointer 
Check Dee type 
If NEQ, pool corruption 
Decrement the wait count 
If NEQ, not done ot 
If BC, not wait 
bet address for pa Location 
Erase offical pointer 
Check ahecher type 
If NEQ, pool corruption 
any pimger te references? 


beollecken’ the block 


Why not 
lh. further events 


DEALL_CSD: 
BBCC #ACBSV_STS_PCNT,ACBSB_STS(R4) , 308 
MOVL § ACBSLTPARENT(R4),RO ~ 
CLRL ACBSL “PAREN NT (ha )’ 

CMPB = ACBSB~TYPE(RU) ,ADYNSC_ACB 

DECW  ACBS$W_WAIT_CNT(RO) 


BBCC #ACBSV_STS_WAIT,ACBSB_STS(RO), 308 
30$: MOVL R4,RO0 ~ 


R 
CHPB —ACBSB_TYPE(RO) ,#DYNSC_ACB 
TSTW ACBSW_WAIT_CNT(RO) 
JS8 G*EXESDEANONPAGED 


MOVL $*#SS$_NORMAL ,RO 
MOVZBL #CEVS_EXIT.R 


om—-@o—-orTv0om 


rv SOV Fou 
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3008: BUG_CHECK INCONSTATE,FATAL ; acese TYPE is wrong 
10$: BUG_CHECK INCONSTATE,FATAL WAIT_CNT non-zero 
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IRR HETIL SACTyg 7 Aupeneeh falta 
° - Not-yet-implemented error’ 
ie » SBTTL *ACT_NOP = Ho-eperation® 
ay 
13 ; INPUTS: R5 ACB ptr or zero 
13 : OUTPUTS: R5 Unchanged 
194 : 
1348 her — BUG_CHECK INCONSTATE,FATAL Signal the b 
9 1949 ACT_NYI: ’ we 
; 1308 BUG_CHECK INCONSTATE,FATAL : Signal the bug 
D 1950 ACT_NOP: 3; Nop actio ti 
51 99 D 1989 MOVL 5 OSEvS ExT AI : in’ Garther arene 
50 1 1326 MOVB #1,R 3; Allow state transition 
0 9 132 RSB 
94 1954 
94 1955 
94 1956 .END 
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CSPCALL 

Symbol table 
CLUSGW_MAX INDEX 
CLUBSL_CSPBL 
CLUBSL_CSPFL 
CLUBSL_CSPIPID 
CLUBSL 


“LOCAL CSB 
CNXSALCOC_WARMCDRP 
CNXSBLOCK_READ 


CNXSBLOCK_XFE 
CNXSDEALL WARMCDRP_CSB 
CNXSPARTNER_INIT CSB 
CNXSPARTNER_ RESPOND 
OMMON_ SETUP 


DSL —~SENDOF F 
CSD$Q-INT_I0SB 
CSD$Q~PROCPRIV 
CSDSW 


CSD$W~10SB_STAT 
CSDSW~SIZE 
CSP$B 


> Tt er 4 
s4ou4 


PMSGS$K—RSP~RO 
PMSGS$K~RSP~RW 
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= Loadable Exec support for CSP 1 


SP” COMMAND 
EACLOC CSD 
GANONF AGED 


REQ 
RSNS_ASTWAIT 
RSNS_NPDYNMEM 


P LD 
SCHSGL_PCBVEC 


NNMNNNYNNY DW 
ANNA MOOOn 


~$Fb=138e beiag; 
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J 15 
CSPCAL = Loadable Exec support for CSP 16-SEP=1 AX/VMS Macro V04-00 P 5 
paket teble oe Bree Ei13be bn:08156 Fee oR. eResesBeAr mars: P29 (43, 
$S$_NOSUCHNODE = f 
SSS_REJECT s 
SsS$- Tamgut = C 
VASA_BYTE = FF 
VAS" “VPN = 003 
VASY = VPN = 
WAIT™ oD R 08 
MEND 2 1 5 u 
SENT = 
“Snax : p 
“$START = B 02 
= 000 R 

Geena mmaneanrasocoae + 

! Psect synopsis ; 
PSECT name Allocation PSECT No. Attributes 
. ‘ 00000000 <( 23) 0 0.) NOPIC USR CON ABS LCL wos woexe NORD NOwnt NOVEC BYTE 
SABSS 00000034 ( oF -) NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 
$3$200 00000894 ( 2196.) 2 ¢ 5°} NOPIC USR CON REL LCL NOSHR EXE RD WRT NOVEC QUAD 

¢woomemn comes meron eee scee 
! i Performance indicators H 

Phase Page faults CPU Time Elapsed Time 
Initialization $$ 0: 0:00 «03 00:00:01.28 
Command processing 1 0:00: 3 88: 3:9). 1 
Pass 1 556 0:00:16.5 0:00:54.85 
syenes table sort 336 8: 206-12 09: ERC 
Symbol table output 29 0: 9:00.1 0:00:00.98 
Psect synopsis output 1 0:00:00.0 00:00: 8-8 
Cross-reference output 0 eS Op tay: 9. 
Assembler run totals 1099 0:00:23. 00:01:22.7 


The 7¥9 rking 7 pate was 2400 pages. 

141751 1 Bytes (277 pages) of virtual memory were used to buffer the intermediate sed e. 

There were 110 pages of symbol table space at yasetee to hold 1983 non-local and 75 local symbols. 
1956 source {i t- were read in Pass 1, produc cing 21 object records in Pass 2. 

48 pages of virtual memory were used to define 46 macros. 


Gewweeeeoeseeceecesccececce} 


Macro Library name Macros defined 
55$DUA :ESYSLOA. OA CPL TCL UsTER. -MLB;1 4 
$255$DUA ste 21 
$255$DUA iESySi 16381 STARLET. Sale: :2 7 

Teraie (all librar 32 


2066 GETS were required to define 32 macros. 
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* tenaabe Exes mpprt for Cp" MCHA SHEE PRAT ETE IPs PO of 


CSPCALL 
VAX=11 Macro Run Statistics 


There were no errors, warnings or information messages. 
MACRO/LIS=L1IS$:CSPCALL/OBJ=OBJ$:CSPCALL MSRC$:CSPCALL/UPDATE=(ENHS:CSPCALL) +EXECML$/L1B+LIB$:CLUSTER/LIB 
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